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SUMMARY 


This  second  volume  of  the  report  describes  the  digital  computer  program 
developed  to  study  the  aerodynamic  characteristics  of  fan-in-wing  configura¬ 
tions  .  Volume  I  (Reference  1)  of  this  report  provides  the  details  of  the  aero¬ 
dynamic  theory  underlying  the  computer  program. 

The  method  presented  in  Volume  I  has  proved  feasible  for  computers  with  suf¬ 
ficient  capacity  to  solve  the  large  number  of  linear  simultaneous  equations 
required  for  accurate  geometric  representation  of  the  configuration.  The 
resulting  computer  program  was  written  in  the  FORTRAN  IV  and  ASCENT 
programing  languages  for  the  Control  Data  Corporation  6000-series  digital 
computers.  To  provide  versatility,  the  computer  program  is  divided  into 
three  basic  packages  called  a  geometry  program,  a  potential- flow  program, 
and  a  boundary- layer  program.  The  outputs  of  the  first  and  second  programs 
are  directly  usable  in  the  second  and  third  programs,  respectively,  or  there 
may  be  supplementary  information  or  interpretation  provided  between  programs. 

The  geometry  program  produces  a  detailed  geometric  description  of  the  con¬ 
figuration  under  study.  The  potential-flow  program  provides  a  theoretical 
solution  of  the  flow  about  the  configuration.  The  boundary- layer  program 
indicates  the  relative  boundary- layer  condition  on  the  inlet  geometry. 

This  volume  is  also  a  guide  for  program  maintenance.  A  general  discussion  of 
the  three  programs  is  followed  by  a  detailed  description  of  each.  The  section 
on  program  usage  contains  the  computer  hardware  and  software  requirements, 
input  data  formats,  program  field  length  requirements,  timing  and  output  esti¬ 
mates,  and  necessary  monitor  control  cards.  Flow  charts,  segmentation 
structure  diagrams,  and  detailed  descriptions  of  each  subroutine  are  contained 
in  the  appendixes . 
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1.  INTRODUCTION 


This  part  of  the  report  (Volume  II)  describes  the  digital  computer  program 
developed  to  study  the  aerodynamic  characteristics  of  a  lift  fan- in- wing  con¬ 
figuration.  Three  separate  programs  were  written,  each  oriented  toward  a 
particular  phase  of  the  overall  problem.  In  the  order  of  use,  they  are:  the 
geometry  program,  the  potential-flow  program,  and  the  boundary-layer  pro¬ 
gram.  The  theoretical  considerations  underlying  the  method  are  presented 
in  Volume  I  (Reference  1) . 

The  geometry  program  presents,  in  a  form  acceptable  to  the  potential-flow 
program,  a  geometric  description  of  the  co.  iguration  under  study.  This  pro¬ 
gram  geometrically  defines  any  of  five  different  types  of  surfaces:  wings, 
lifting  network  systems  in  wings,  fan  inlets,  jet  efflux  tubes,  and  axisymmetric 
bodies.  In  general,  several  of  these  surfaces  are  combined  to  define  a  given 
configuration.  Coordinates  of  the  surfaces  are  output  on  cards  and  used  as  input 
for  the  potential- flow  program. 

The  potential- flow  program  provides  &  theoretical  solution  of  the  flow  about 
arbitrary  fan-in-wing  configurations  by  means  of  a  potential-flow  mathematical 
model  consisting  of  source  and  vortex  singularities  distributed  on  the  wing, 
wake,  and  jet  efflux  tube.  The  singularity  representation  is  composed  of  a 
number  of  constant- strength  source  sheets  covering  the  wing  surface  to  give 
thickness  effects,  internal  vortex  filaments  emanating  from  the  wing  trailing 
edge  to  provide  circulation  and  to  simulate  the  trailing  vortex  sheet,  and  a 
vortex  lattice  to  represent  the  boundary  between  the  jet  efflux  tube  and  the 
exterior  flow.  The  problem  is  solved  by  satisfying  the  boundary  condition  of 
parallel  flow  to  the  surfaces  at  a  finite  number  of  points,  resulting  in  a  complex 
system  of  linear  algebraic  equations  to  be  solved.  The  final  results  consist  of 
the  velocity  and  pressure  distributions,  forces,  and  moments.  In  addition,  the 
program  calculates  streamlines  on  the  model,  including  streamlines  emanating 
from  the  inlet  of  the  lift  fan.  Flow  characteristics  along  the  streamlines  are 
punched  on  data  cards  as  input  to  the  boundary- layer  program. 

The  boundary- layer  program  analyzes  the  turbulent  boundary  layer.  Certain 
simplifying  assumptions  have  been  made  to  allow  the  introduction  of  two- 
dimensional  axisymmetric  flow  analysis . 
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2.  DESCRIPTION 


An  analysis  of  aerodynamic  characteristics  of  a  fan-in-wing  configuration  is 
accomplished  using  three  computer  programs  in  the  following  order: 

•  Geometry  program 

•  Potential-flow  program  « 

•  Bo:mdary~layer  program 

These  programs  provide  a  theoretical  solution  of  the  flow  about  arbitrary  fan- 
in- wing  configurations  by  means  of  a  potential-flow  mathematical  model  con-  * 

sisting  of  source  and  vortex  singularities  distributed  on  the  wing,  wake,  and 
jet  efflux  tube.  The  potential-flow  model  is  geometrically  defined  by  the  geometry 
program  and  aerodynamically  analyzed  by  the  potential-flow  program  and  the 
boundary-layer  program.  The  geometry  program  punches  the  geometric  defini¬ 
tion  on  cards  suitable  for  input  to  the  potential- flow  program.  The  potential- 
flow  program,  in  turn,  punches  the  data  necessary  for  input  to  the  boundary- 
layer  program.  User  intervention  is  necessary  to  prepare  the  inputs  to  all 
programs. 

The  programs  are  written  in  the  FORTRAN  IV  and  ASCENT  languages  for  the 
Control  Data  Corporation  6600  (131k)  digital  computer.  Control  of  the  computer 
is  monitored  by  the  SCOPE  (Simultaneous  Control  of  Program  Execution)  Oper¬ 
ating  System.  Information  concerning  the  programing  languages  and  the  SCOPE 
Operating  System  can  be  found  in  References  2,  3,  and  4.  Because  the  geometry 
and  potential-flow  programs  exceed  the  capacity  of  a  single-core  load,  the  seg¬ 
mentation  feature  of  the  loader  is  used,  allowing  the  programs  to  be  subdivided 
into  several  parts  called  segments .  The  segments  are  loaded  and  executed  in 
a  specified  order  to  solve  a  particular  problem. 

2.1  GEOMETRY  PROGRAM 

The  purpose  of  the  geometry  program  is  to  calculate  x,  y,  and  z  coordinates  of 
the  surfaces  of  several  geometrical  shapes  in  a  reference  coordinate  system. 

These  coordinates  may  be  punched  on  cards  that  are  used  as  input  for  the 
potential-flow  program.  The  various  shapes  acceptable  by  the  geometry  pro¬ 
gram  are  the  following:  ' 

1.  A  wing 

2.  A  lifting  system 

3.  A  fan  inlet 

4.  A  jet  efflux  tube 

5.  An  axisymmetric  body 
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The  geometry  program  consists  of  a  small  main  program  and  several  sub¬ 
routines.  The  main  program  reads  and  interprets  control  cards,  calling  the 
appropriate  subroutines  into  core.  The  subroutines  do  all  of  the  calculations 
necessary  to  find  the  surface  coordinates.  The  main  subroutines  in  the  geom¬ 
etry  program  are  WING,  LIFT,  INLET,  TUBE,  andAXISYM.  Any  one  of  these 
may  be  called  into  core  by  a  data  card  containing  the  subroutine  name.  Cards 
such  as  these  are  referred  to  as  "control  cards, "  since  they  control  the  flow  of 
program  execution. 

After  a  control  card  has  been  read,  the  program  expects  various  types  of  input, 
depending  on  the  subroutine  called  into  core.  For  example,  when  the  program 
encounters  a  control  card  containing  the  word  TUBE  in  columns  1  through  4,  it 
will  expect  further  input  to  conform  to  that  required  by  subroutine  TUBE.  A 
detailed  input  description  for  each  subroutine  is  given  in  Section  3. 1.2,  "Input 
Data  Format. " 

In  addition  to  the  five  control  cards  listed  above,  the  geometry  program  will 
recognize  three  others:  CARD,  CASE,  and  EXIT.  These  control  cards  will 
not  cause  loading  and  execution  of  a  like-named  subroutine,  but  perform  indi¬ 
vidual  functions  within  the  main  program.  They  are  also  described  in  detail 
in  Section  3. 1.2. 

2.2  POTENTIAL-FLOW  PROGRAM 

The  potential- flow  program  provides  a  theoretical  solution  of  the  flow  about 
arbitrary  fan-in- wing  configurations  by  means  of  a  potential- flow  mathematical 
model  consisting  of  source  and  vortex  singularities  distributed  on  the  wing, 
wake,  and  jet  efflux  tube.  The  program  is  divided  into  two  sections:  Geometric 
and  Aerodynamic.  The  Geometric  Section  provides  a  suitable  geometric  descrip¬ 
tion  of  the  potential- flow  mathematical  model  of  the  configuration,  and  the 
Aerodynamic  Section  solves  the  theoretical  formulation  of  the  flow  about  the 
model.  Execution  begins  in  program  MAIN  where  program  variables  are 
initialized.  Then  execution  passes  to  subroutine  CONTRL,  which  controls  the 
flow  through  the  program  by  interpreting  control  cards  located  within  the  data 
deck. 

Multiple  cases,  each  involving  a  different  fan-in-wing  configuration,  can  be  run. 
When  a  nonsystem  error  occurs  during  the  execution  of  a  case,  a  partial  data 
printout  followed  by  an  error  message  is  given,  and  execution  is  passed  to  the 
next  case.  Execution  time  is  a  direct  function  of  the  number  of  singularities 
utilized  in  representing  a  configuration.  For  example,  a  simple  wing  solution 
with  500  singularities  can  be  obtained  in  10  to  12  minutes,  whereas  a  sophisti¬ 
cated  fan-in-wing  model  with  1200  singularities  may  require  an  hour  or  more. 

The  potential-flow  model  is  represented  by  singularities  composed  of  a  number 
of  constant-strength  source  sheets  covering  the  wing  surface  to  give  thickness 
effects,  a  vortex  lattice  forming  the  boundary  between  the  jet  efflux  tube  and 
the  exterior  flow,  and  internal  vortex  filaments  emanating  from  the  wing  trailing 
edge  to  provide  circulation  and  to  produce  the  trailing  vortex  sheet. 


Each  type  of  singularity  has  a  name:  the  constant-strength  source  sheets  are 
called  source  panels,  the  vortex  lattice  singularities  are  called  quadrilateral 
vortices,  and  the  Internal  vortices  are  called  multihorseshoe  vortices.  The 
geometrical  representation  of  the  fan-in-wing  configuration  consists  of  singu¬ 
larity  networks,  where  each  network  is  an  m-by-n  singularity  array.  In  par¬ 
ticular,  the  wing  is  composed  of  one  or  more  source-panel  networks,  the  jet 
efflux  tube  consists  of  one  or  more  quadrilateral  vortex  networks,  and  the 
lifting  system  consists  of  one  or  more  multihorseshoe  vortex  networks.  By 
definition,  the  multihorseshoe  networks  are  always  m-by-1  arrays. 

Two  types  of  free-stream  flow  conditions  are  permitted:  symmetric  and 
unsymmetric.  The  flow  is  symmetric  when  the  angle  of  yaw  of  the  configuration 
is  zero.  For  symmetric  flow,  only  the  right  half  of  the  configuration  is  input; 
the  left  half  is  accounted  for  by  the  program. 

The  primary  function  of  the  Geometric  Section  of  the  program  is  to  create  two 
data  files  containing  the  geometric  quantities  and  the  specified  normal  velocities 
of  the  singularities.  The  first  file,  called  the  defining  quantities  data  file,  con¬ 
tains  geometric  parameters  describing  the  type  and  the  orientation  of  the  singu¬ 
larities.  The  second  file,  called  the  boundary  point  quantities  data  file,  contains 
the  boundary  point  orientation,  the  specified  normal  velocities  of  the  singulari¬ 
ties,  and  the  coordinates  of  specified  off- body  points. 

The  Aerodynamic  Section  of  the  program  has  six  functions: 

1.  Formation  of  the  normal  velocity  matrix  equation 

2.  Calculation  of  the  singularity  strengths  by  solution  of  a  matrix 
equation 

3.  Calculation  of  the  velocity  and  pressure  at  points  on  the  wing,  lift-fan 
barrier,  jet  efflux  tube,  and  off  the  body 

4.  Calculation  of  the  forces  and  moments  acting  on  the  body 

5.  Tracing  of  the  streamlines  on  the  body 

6.  Preparation  of  streamline  flow  characteristics  for  the  boundary- layer 
program 


The  primary  function  of  the  Aerodynamic  Section  is  the  calculation  of  the 
singularity  strengths,  which  requires  the  solution  of  the  matrix  equation 


where 
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normal  velocity  at  the  i^1  boundary  point  induced  by  the  j^  unit 
strength  singularity 


strength  of  the  singularity  that  satisfies  the  k**1  solution 
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B.,  =  required  normal  velocity  at  the  itl1  boundary  point  for  the  k*k 
1  soluticc,  which  is  the  sum  of  the  free-stream  normal  velocity 
compcoeni  and  the  specified  normal  velocity 


The  boundary  condition  of  parallel  flow  to  the  surface  at  a  finite  number  of  points 
is  used  to  establish  the  matrix  equation.  Several  solutions  may  be  requested. 

A  solution  is  specified  by  either  an  angle  of  attack  and  angle  of  yaw,  or  a  zero 
free-stream  velocity.  By  rearrangement,  the  matrix  equation  to  be  solved  is 
given  by 
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This  equation  must  be  solved  to  partitioned  form  because  of  the  limited  core 
size  of  the  computer.  A  package  of  matrix  subroutines  developed  by  The  Boeing 
Company  is  used  to  solve  the  equation.  The  normal  velocity  matrix  jVNyl  is 
formed  from  the  velocity  component  matrices  ‘  " 

IVNJ  =  |VXJ  K  I  +1  VYs;|  |n„  1  +  [  vzj  |n,|  (3) 
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VY 


VZ 


_  velocity  components  at  the  ith  boundary  point  induced  by  the 
jth  unit  strength  singularity 


n  (  =  components  of  the  unit  normal  vector  at  the  i^  boundary'  point 


i 

The  elements  of  the  [vXy  ],  jvYjj],  [vZjj]  ,  [vNy 
calculated  using  the  geometric  quantities  to  the  two  oata  files  created  by  the 
Geometric  Section  of  the  program . 
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matrices  are 


The  velocity  components  at  the  singularity  boundary  points  on  the  model  and  at 
the  off-body  points  are  computed  by 
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where  V 
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“z. 


I  =  components  of  the  free-stream  velocity  for  the  k**1  solution 


The  velocity  and  pressure  distributions  are  calculated  by 


and 
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The  velocity  and  pressure  distributions  on  the  fan  surface  are  computed  by  the 
method  described  in  subroutine  CON3UR  (Appendix  HI) .  After  the  velocity  and 
pressure  distributions  have  been  computed,  the  forces  and  moments  on  the 
configuration  are  calculated.  Finally,  the  streamlines  are  traced  over  the 
configuration,  and  the  flow  characteristics  along  the  streamlines  are  punched 
on  cards  for  input  to  the  boundary-layer  program. 


Upon  completion,  the  Aerodynamic  Section  returns  to  the  Geometric  Section  to 
process  another  configuration. 


2.3  BOUNDARY- LAYER  PROGRAM 

This  program  provides  a  method  of  analyzing  turbulent  boundary  layers  in  three- 
dimensional  flow.  Certain  simplifying  assumptions  have  been  made  to  allow  the 
introduction  of  two-dimensional  axisymmetric  flow  analysis . 

The  method  requires  the  solution  of  coupled  first-order  ordinary  differential 
equations  that  describe  the  boundary  layer.  The  equations  for  momentum  and 
moment-of-momentum  are  solved  simultaneously  by  the  Adams-Moulton 
predictor-corrector  method  with  variable  step  size.  The  output  from  the 
program  includes  the  skin  friction  coefficient,  momentum  thickness,  and  shape 
factor  at  points  along  the  streamline. 


* 


% 


i 


6 


3.  PROGRAM  USAGE 


A  description  of  program  usage  for  the  three  programs — geometry  program, 
potential-flow  program,  and  boundary- layer  program — is  presented  in  this 
section.  Computer  hardware  and  software  requirements,  input  data  formats, 
program  field  lengths,  and  estimates  of  timing  and  output  are  discussed. 

3.1  GEOMETRY  PROGRAM 

3.1.1  Machine  Components 

The  geometry  program  is  coded  in  FORTRAN  IV  for  the  CDC  6600  (131k)  digital 
computer.  Control  of  the  computer  is  monitored  by  the  SCOPE  Operating  System. 
Data  files  for  input,  printed  output,  and  punched  output  are  required  by  the 
program . 

3.1.2  Input  Data  Format 

This  section  describes  the  use  of  various  capabilities  of  the  geometry  program. 
Complete  instructions  for  submitting  geometric  problems  to  the  compute*'  are 
provided. 

This  program  provides  a  simple  method  of  obtaining  x,  y,  and  z  coordinates  of 
several  types  of  surfaces  on  punched  cards.  The  program  was  written  to  support 
the  potential- flow  program;  thus  output  is  oriented  toward  that  program.  The 
types  of  surfaces  that  can  be  produced  in  a  reference  coordinate  system  are: 

•  A  wing 

•  A  lifting  system  for  a  wing 

•  A  fan-in-wing  inlet 

•  A  jet  efflux  tube 

•  Axisymmetric  or  pseudoaxisymmetric  surfaces 

The  versatile  curve-fitting  procedure  in  subroutine  WING  makes  it  easy  to  tailor 
the  chord  wise  source  panel  arrangement  independently  of  the  airfoil  definition. 
The  curve-fitting  feature  may  also  enhance  the  subroutine’s  usefulness  for  other 
applications  where  accurate  intermediate  surface  coordinates  are  needed. 
Subroutine  LIFT  is  geared  closely  to  the  potential- flow  program  both  in  input  and 
output.  The  INLET  subroutine  is  for  the  most  part  tied  closely  to  fan- in- wing 
configurations,  but  the  wing  contour  capability  with  the  inlet  makes  it  potentially 
useful  for  other  applications  where  surface  intersections  are  desired.  The 
TUBE  subroutine  provides  the  network  coordinates  for  an  efflux  tube  including 
the  influence  of  velocity  ratio,  fan  diameter,  thrust  vector  angle,  and  angles 
of  attack  and  yaw.  It  will  adjust  the  network  arrangement  so  as  to  fair  smoothly 
to  a  nonplanar  wing  lower  surface.  Subroutine  AX1SYM  will  handle  any  body  that 
can  be  paneled  in  radial  planes.  Taken  together,  these  subroutines  provide  a 
powerful  capability  to  prepare  surface  coordinates  for  a  wide  variety  of  surfaces. 


All  geometry  program  data,  except  title  cards  and  control  cards,  are  punched 
in  number  fields  ten  columns  wide,  with  six  fields  per  card.  Decimal  points 
should  always  be  punched  for  every  input  number,  and,  since  their  omission 
is  not  flagged  as  an  error,  users  must  check  their  data  cards  carefully  before 
submitting  the  run. 

Input  to  the  geometry  program  falls  into  three  categories:  control  cards,  title 

cards,  and  numeric  input.  As  their  name  implies,  the  control  cards  control 

the  execution  of  the  program.  Eight  words  are  used  on  control  cards:  4 

1)  CASE  5)  INLET 

2)  CARD  6)  TUBE 

3)  WING  7)  AXISYM  , 

4)  LIFT  8)  EXIT 

These  control  cards  must  be  punched  beginning  in  card  column  1  and  must  not 
contain  any  blanks . 

The  general  card-stacking  arrangement  is  shown  In  Figure  1.  If  titles  are  not 
wanted  on  the  printed  output,  delete  the  CASE  control  card  and  the  two  title 
cards .  There  are  no  restrictions  as  to  sequence  of  the  five  major  geometry 
subroutines.  The  functions  of  the  control  cards  are  given  below. 

Control  card  CASE:  This  control  card  causes  execution  of  two  functions.  First, 
an  option  indicating  whether  or  not  card  output  is  desired  is  set  to  the  no-output 
condition.  Second,  the  program  will  read  the  following  two  cards  as  title  cards, 
printing  columns  1-80  in  several  places  on  the  output.  If  the  CASE  card  is 
omitted,  no  title  cards  are  read,  and  the  title  for  the  previous  case  is  used 
(blank  if  this  is  the  first  case) .  The  card  output  option  remains  as  for  the 
previous  case  (no  output  if  this  is  the  first  case) ,  unless  this  option  is  reset 
by  a  CARD  control  card. 

Control  card  CARD:  This  card  is  used  when  punched-card  output  is  desired. 

If  one  of  these  cards  is  encountered,  card  output  will  be  produced  for  every 
system  (WING,  LIFT,  INLET,  TUBE,  AXISYM)  following  until  this  option  is 
negated  by  a  CASE  control  card.  A  CARD  control  card  is  necessary  to  obtain 
card  output  for  any  system  after  a  CASE  control  card,  regardless  of  the  number 
of  CARD  control  cards  previously  used. 

The  standard  format  built  into  the  program  for  card  output  is  the  following: 

(F10. 5,  F10. 5,  F10. 5,  F10. 5, F10. 5, F10. 5) 

Each  of  the  six  FlO.u's  gives  the  specifications  for  the  corresponding  number  i 

punched  on  the  output  cards.  That  is,  the  first  F10.5  controls  the  format  of 
the  first  number  (columns  1-10)  on  the  card;  the  second  F10.5  controls  the 
second  number  (columns  11-20)  on  the  card;  and  so  on.  Under  the  F10.5  for¬ 
mat,  all  numbers  to  be  punched  on  cards  must  be  less  than  1,000.  Numbers 
too  large  for  the  specified  format  are  rendered  useless. 
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Figure  1.  Data  Card  Arrangement  for  Geometry  Program. 

•  An  exception  is  the  LIFT  subroutine,  where  the  format  has  been  altered  to  give 

numbers  up  to  10,000  in  the  first  and  fourth  fields.  The  modified  format  is: 

(F10. 4,  F10. 5,  F10. 5,  F10.4,  F10. 5,  F10. 5) 

8  This  alteration  was  necessary  to  allow  the  large  x  values  associated  with  the 

trailing  edge.  The  above  limitations  are  built  into  the  program,  but  they  can 
be  overridden  if  necessary;  however,  unless  such  action  is  taken,  these  restric 
tions  will  be  adhered  to.  It  is  the  responsibility  of  the  user  to  check  that  the 
magnitude  of  his  data  is  not  greater  than  that  allowed. 
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.If  a  nonstandard  format  must  be  used,  it  is  punched  in  columns  11  through  4?  of 
the  pertinent  CARD  control  card  in  exactly  the  format  displayed  above  (including 
parentheses  and  commas ,  and  no  blank  spaces) .  All  of  the  output  data  to  which 
this  CARD  control  card  applies  will  be  punched  on  cards  with  the  nonstandard 
format.  The  allowable  range  for  numbers  punched  under  various  formats  is 
tabulated  below. 


Format 

Allowable  Range 

F10.2 

a  <  1,000,000. 

F10.3 

a  < 

100,000. 

F10.4 

a  < 

10,000. 

F10.5 

a  < 

1,000. 

F10.6 

a  < 

100. 

F10.7 

a  < 

10. 

Note:  a  is  the  expected  output  number. 


Control  cards  WING,  LIFT.  INLET,  TUBE,  andAXISYM:  These  control  cards 
transfer  control  to  the  subroutines  for  the  appropriate  system. 

Control  card  EXIT:  This  control  card  is  the  last  card  of  the  data  deck.  When 
this  control  card  is  encountered,  program  execution  is  terminated. 
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GEOMETRY  PROGRAM  CARD  INPUT 


WING  Input.  —Figure  2  displays  the  data  card  arrangement  for  subroutine 


WING.  A  description  of  the  card 


t 

Column 

Code 

Card  1 

1-4 

WING 

Card  2 

1-10 

PARTS 

« 

\ 

Card  3 

1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

XLE. 

yle{ 

ZLE: 

xte{ 

yte{ 

ZTEj 

i 

! 

t* 

Card  4 

1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

XLE 

YLE0 

ZLE0 

XLEn 

YLE0 

ZLEg 

! 

t 

Card  5 

1-10 

ORDj 

j 

» 

1 

! 

t 

r 

*  • 

\ 

t 

i 
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Card  Set  6 

1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

(x/c), 
(z/c), 
(x/c)p 
(z/c)  f 
(x/cK 

(^>3 

Card  7 

1-10 

ORD0 

e? 


input  to  subroutine  WING  follows. 

Explanation 

Control  card — contains  the  word  WING. 

=  number  of  PARTS  in  this  wing.  Cards 
3-12  must  be  input  PARTS  times. 

coordinates  of  the  leading  and  trailing  edges 
of  the  inboard  defining  section  for  this  wing 
PART 


coordinates  of  the  leading  and  trailing 
edges  of  the  outboard  defining  section  for 
this  wing  PART 


=  number  of  pairs  of  (x/c,  z/c)  coordi¬ 
nates  defining  the  inboard  airfoil  section 
=  0. ;  coordinates  will  be  used  from  the 
outboard  section  of  the  previous  wing 
PART. 

Note:  ORD,  may  not  be  zero  for  the  first 
PART,  as  there  is  no  previous 
PART  from  which  to  obtain 
coordinates. 

0.<ORDj  <  200. 

coordinates  defining  the  inboard  airfoil 
section.  There  must  be  ORDi  of  these 
pairs,  six  numbers  per  card.  If  ORDj 
is  zero,  delete  this  card  set. 


=  number  of  pairs  of  (x/c,  7> c)  coordi¬ 
nates  defining  the  outboard  airfoil 
section 
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Card  Set  8 


Card  9 


Card  Set  10 


Card  11 


Column  Code 


1-10  (x/c). 

11-20  (z/c)A 
21-30  (x/c>; 

31-40  (z/c  )t 
41-50  (x/c>; 

51-60  (z/c)“ 

1-10  COL 


1-10  y 
11-20  y* 
21-30  y; 
31-40  y I 
41-50  y I 
51-60  y° 

1-10  ROW 


Explanation 

=  0. ;  coordinates  will  be  used  from 
inboard  section  of  this  wing  PART . 

0.  £  ORD0  <  200. 

coordinates  defining  the  outboard  airfoil 
section.  There  must  be  ORDq  of  these 
pairs,  six  numbers  per  card.  If  ORDq 
is  zero,  delete  this  card  set. 


=  number  of  spanwlse  panel  divisions  in 
this  wing  PART 

-  0. ;  the  program  will  output  an  M  x  2 
network  of  panel  corner  points  consist¬ 
ing  of  the  inboard  and  outboard  panel 
corner  points,  scaled  and  given  the 
correct  disposition  on  the  planform. 

0.  £  COL  <  20. 

spanwise  panel  divisions ,  input  in  order  of 
increasing  y^  value.  There  must  be  COL 
of  these  y^  values,  six  numbers  per  card. 
If  COL  is  zero,  delete  this  card  set. 


=  number  of  chordwise  panel  divisions  in 
this  wing  PART.  ROW  (x/c)  *s  are  input 
in  card  set  12 ,  and  a  curve-fitting  pro¬ 
cedure  is  employed  to  locate  the  span- 
wise  generators  that  form  panel  edges. 
In  this  case,  ORDj  need  not  equal  ORDq. 

=  0. ;  the  program  uses  the  inboard  and 
outboard  defining  coordinates  as  span- 
wise  generators  to  form  panel  edges. 
Consequently,  ORDj  must  equal  ORDq. 
The  zero  option  for  ORDj  and  ORDq 
may  still  be  used  for  input. 

0.  £  ROW  <  200. 
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Column 

Code 

Explanation 

Card  Set  12  1-10 

(x/c). 

x/c  values  of  the  chordwise  panel  divisions 

11-20 

(x/c)i 

There  must  be  ROW  of  these  values,  six 

21-30 

(x/c)  g 

numbers  per  card.  If  ROW  is  zero,  delete 

31-40 

{x/c)! 

this  card  set. 

41-50 

(*/c)i 

51-60 

(x/e,| 

Figure  2.  Data  Card  Arrangement  for  Subroutine  WING. 
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LIFT  input. — Figure  3  displays  the  data  card  arrangement  for  subroutine  LIFT. 
The  description  of  the  card  input  to  subroutine  LIFT  follows . 


Card  1 
Card  2 


Card  3 


Card  4 


Card  5 


Card  Set  6 


Column  Code 
1-4  LIFT 
1-10  PARTS 


1-10  XLE. 

11-20  yle: 
21-30  zle: 

31-40  XTEt 
41-50  YTE} 
51-60  ZTEj 

1-10  XLE 

ii-2o  yleJ: 

21-30  ZLEb: 
31-40  xteJ: 
41-50  yteJ: 
51-60  ZTEq 

1-10  ROWIj 


1-10  (x/c). 

11-20  (z/c). 

21-30  (x/c), 

31-40  (z/c)“ 

41-50  (x/  c)f 
51-60  (z/c)“ 


Explanation 

Control  card — contains  the  word  LIFT. 

=  number  of  PARTS  in  this  lifting  system. 
Cards  3-21  must  be  input  PARTS  times. 

coordinates  of  the  leading  and  trailing 
edges,  respectively,  of  the  inboard  defining 
section  for  this  lifting  system  PART 


coordinates  of  the  leading  and  trailing 
edges,  respectively,  of  the  outboard 
defining  section  for  this  lifting  system 
PART 


=  number  of  (x/c,  z/c)  coordinate  pairs 
defining  the  inboard  location  of  the 
internal  vortex  comer  points  (including 
the  one  at  the  trailing  edge)  at  the 
inboard  defining  station 

=  0. ;  coordinates  will  be  used  from  the 
outboard  section  of  the  previous  lifting 
system  PART. 

Note:  ROWIj  may  not  be  zero  for  the 
first  PART,  as  there  is  no 
previous  PART  from  which  to 
obtain  coordinates . 

0.  £  ROWIj  <  50. 

coordinates  of  the  internal  vortex  comer 
points  at  the  inboard  defining  station. 
There  must  be  ROWIj  of  these  pairs,  six 
numbers  per  card,  u  ROWIj  is  zero, 
delete  this  card  set. 
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Column  Code 


Explanation 


Card  7  1-10  ROWL  =  number  of  (x/c,  z/c)  coordinate  pairs 

defining  the  internal  vortex  corner 
points  at  the  outboard  defining  station 

=  0. ;  coordinates  will  be  used  from  the 
inboard  section  of  this  lifting  system 

*  PART. 

0.  <  ROWIq  <  50. 

Card  Set  8  1-10  (x/c).  coordinates  of  the  internal  vortex  corner 

11-20  (z/c )*  points  at  the  outboard  defining  station. 

21-30  (x/cjg  There  must  be  ROWIq  of  these  pairs,  six 

31-40  (z/c)^  numbers  per  card.  If  ROWIq  is  zero, 

41-50  (x/c)^  delete  this  card  set. 

51-60  (z/c)g 

Card  9  1-10  COL  =  number  of  spanwise  divisions  (see 

card  set  10) 

1.  1COL  120. 

Card  Set  10  1-10  y1  spanwise  location  of  the  vortex  segments, 

11-20  y„  input  in  order  of  increasing  y^  value. 

21-30  y„  There  must  be  COL  of  these  y^  values, 

31-40  y .  six  numbers  per  card. 

41-50  y  t 
51-60  y" 

Card  11  1-10  ROWTj  =  number  of  trailing  segments  in  the 

inboard  trailing  vortex  indicating  the 
number  of  lengths  Lj  and  direction 
cosines  (a^,  a.^,  a_,j)  that  follow  on 
card  sets  12  ana  13  for  the  inboard 
section 

=  0. ;  lengths  and  direction  cosines  are  to 

*  be  used  from  the  outboard  section  of 

the  previous  lifting  system  PART. 

Note:  ROWTj  may  not  be  zero  for  the 

,  first  PART,  as  there  is  no 

previous  PART  from  which  to 
obtain  data. 

0.  1  ROWTj  1  50. 
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Column 


Explanation 


Card  Set  12 


Card  Set  13 


Card  14 


Card  Set  15 


Card  Set  16 


Card  17 


Code 


1-10  L. 

11-20  Lq 

21-30  ht 
31-40  L* 
41-50  L* 
51-60  L® 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 


azl 

y 

z2 


length  of  each  trailing  vortex  segment  for 
the  inboard  section.  There  must  be  ROWTj 
of  these  lengths,  six  numbers  per  card.  If 
ROWTj  is  zero,  delete  this  card  set. 


direction  cosines  of  each  trailing  vortex 
segment  for  the  inboard  section.  There 
must  be  ROWTj  of  these  three  numbers, 
six  numbers  per  card.  If  ROWTj  is  zero, 
delete  this  card  set. 


1-10  ROWTq  =  number  of  trailing  segments  in  the 

outboard  trailing  vortex,  indicating  the 
number  of  lengths  Lj  and  direction 
cosines  (a^,  a^,  azj)  that  follow  on 
card  sets  15  and  16  for  the  outboard 
section 


1-10  L 

11-20  hi 

21-30  ht 
31-40 

41-50  l: 
51-60  Lg 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 


xl 

>\ 

x2 

ly2 

z2 


1-10  (x/c) 

11-20  (z/c) t 

21-30  <x/c)* 

31-40  (z/c)i 
41-50  (x/c), 

51-60  (z/c)J 


=  0. ;  lengths  and  direction  cosines  are  to 
be  used  from  the  inboard  section  of  this 
lifting  system  PART. 

0.  i  ROWT0  i  50. 

length  of  each  trailing  vortex  segment  for 
the  outboard  section.  There  must  be 
ROWTq  of  these  lengths,  six  numbers 
per  card.  If  ROWTq  is  zero,  delete  this 
card  set. 


direction  cosines  of  each  trailing  vortex 
segment  for  the  outboard  section.  There 
must  be  ROWTq  of  these  three  numbers, 
six  numbers  per  card.  If  ROWTq  is  zero, 
delete  this  card  set. 


Cards  17,  18,  and  19  contain  eight  coordi¬ 
nates  used  in  the  computation  of  thetrailing- 
edge  boundary  point  and  the  direction 
cosines  of  the  normal  to  the  boundary  point. 
The  first  four  coordinates  are  the  inboard 
upper  and  lower  surface  trailing-edge  panel- 
edge  locations .  The  last  four  coordinates 
are  for  the  outboard  section. 
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17 


Figure  3.  Data  Card  Arrangement  for  Subroutine  LIFT. 


IS 


0.  £>  ORDq  <  200. 

Card  Set  7  1-10  (x/c)  coordinates  defining  the  outboard  airfoil 

11-20  (z/c)|  section.  There  must  be  ORDq  of  these 

21-30  (x/c)^  pairs,  six  numbers  per  card.  If  ORDq 

31-40  (z/c)„  is  zero,  delete  this  card  set. 

41-50  (x/c), 

51-60  (z/c)g 
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Card  8 


Card  9 


Card  10. 1 


Card  11.1 


Card  12.1 


Card  13.1 


Card  Set  14 . 


Card  15.1 


Column  Code 


1-10  TYPE 


11-20  eT 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 


xb 

zb 


1-10  REGION 


1-10  PARTS 


1-10  CODE 


1-10  M 


1-10  F 
11-20  F* 
21-30  F^ 
31-40  F^ 
41-50  F^ 
51-60  Fg 

1-10  Np 


Explanation 


=  0. ;  wing  is  defined  by  lines  connecting 
ordered  ooints .  ORDo  must  equal 
ORDj  or  be  zero. 

=  1. ;  wing  is  defined  by  lines  of  constant 
x/c.  ORDq  need  not  equal  ORDj. 

tolerance  used  in  the  iteration  scheme  to 
compute  points  on  the  wing  surface.  A 
recommended  value  is  10“ 6  times  the 
average  wing  chord. 

(Xq  ,  y0 1  zj  is  the  origin  of  the  inlet  coordi¬ 
nate  system  on  the  fan  axis.  (nx5,  ny^n^ 
are  the  direction  cosines  of  the  fan  sods 
directed  upward. 


=  1. ;  causes  program  to  perfonn  calcula¬ 
tions  in  REGION  1  of  the  inlet.  Cards 
11. 1-17. 1  that  follow  are  for  REGION  1. 

=  number  of  PARTS  in  REGION  1  of  the 
inlet.  Cards  12. 1-17. 1  must  be  input 
PARTS  times. 

=  1. ;  upper  surface  points  only  are 
computed. 

=  -1. ;  lower  surface  points  only  are 
computed. 

=  number  of  Fj  fraction  values  to  follow 
on  card  set  14. 1 

1.<M£  20. 

fraction  values  that  control  panel  spacing 

between  two  input  (x,y)  points  on  the  wing 

planform ,  input  in  the  order  of  increasing 

value. 

0.  <  F1  <  1. 

=  number  of  (x,y)  pairs  to  follow  on  card 
set  16.1 

1.5Np£  200. 
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Card  Set  16. 1 


Card  Set  17. 1 


Card  10.2 


Card  11.2 


Card  12.2 


Card  13.2 


Card  Set  14.2 


Card  Set  15.2 


Column  Code 


1-10  x~ 

11-20  yf 
21-30  xi 
31-40  y; 

41-50  xf 
51-60  y* 

1-10  x 
11-20  yf 
21-30  xi 
31-40  y“ 

41-50  \ 

51-60  yg 

1-10  REGION 


1-10  PARTS 


1-10 

11-20 


P1 

*D2 


Explanation 


coordinates  along  the  outer  boundary  of 
REGION  1;  input  counterclockwise,  viewed 
from  above,  for  the  upper  surface  and 
clockwise,  viewed  from  above,  for  the 
lower  surface.  There  must  be  Np  of  these 
(x,y)  pairs,  six  numbers  per  card. 

coordinates  along  the  inner  boundary  of 
REGION  1;  input  counterclockwise,  viewed 
from  above,  for  the  upper  surface  and 
clockwise,  viewed  from  above,  for  the 
lower  surface.  There  must  be  Np  of 
these  (x,y)  pairs,  six  numbers  per  card. 

=  2. ;  causes  program  to  perform  calcula¬ 
tions  in  REGION  2  of  the  inlet.  Cards 
11.2-17.2  that  follow  are  for  REGION  2. 

=  number  of  PARTS  in  REGION  2  of  the 
inlet.  Cards  12.2-17.2  must  be  input 
PARTS  times. 

two  defining  stations  for  this  inlet  PART; 
input  in  degrees,  counterclockwise  wh:~i 
viewed  from  above 


3-10  M 


eDl  *  9D2 


=  number  of  (R,  Z)  pairs  to  follow  on  card 
sets  14.2  and  15.2 


LiMS  200. 


1-10  R 
11-20  Z\ 
21-30  R~ 
31-40  Z0 
41-50  R, 
51-60  Zg 


coordinates  defining  the  panel  corner  points 
along  the  inlet  contour  for  the  first  defining 
station  6^;  input  beginning  on  the  unmodi¬ 
fied  wing  surface  and  proceeding  down  into 
the  inlet.  There  must  be  M  of  these 
(R,  Z)  pairs,  six  numbers  per  card. 


1-10  R. 

11-20  z: 

21-30  R^ 
31-40  zt 
41-50  R^ 
51-60  Zg 


coordinates  defining  the  panel  corner  points 
along  the  inlet  contour  for  the  second 
defining  station  0D2'>  input  beginning  on  the 
unmodified  wing  surface  and  proceeding 
down  into  the  inlet.  There  must  be  M  of 
these  (R,Z)  pairs,  six  numbers  per  card. 
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Column 


Explanation 


Code 


Card  16.2 

1-10 

NP 

=  number  of  8-p  paneling  stations  to 
follow  in  card  set  17.2 

1.  £Np  £  20. 

Card  Set  17.2 

1-10 

epl 

qP2 

fiP3 

aP4 

fiP5 

®P6 

dp  paneling  stations  in  degrees;  input 

11-20 

counterclockwise  viewed  from  above. 

21-30 

There  must  be  Np  of  these  dp  stations, 

31-40 

41-50 

six  numbers  per  card. 

51-60 

dDi  £  #p  *  ®D2 

Card  10.3 

1-10 

REGION 

=  3. ;  causes  program  to  perform  calcula¬ 
tions  in  REGION  3  of  the  inlet.  Cards 
11.3-18.3  that  follow  are  for  REGION  3. 

Card  11.3 

1-10 

PARTS 

=  number  of  PARTS  in  REGION  3  of  the 
inlet.  Cards  12 . 3- 18. 3  must  be  input 
PARTS  times. 

Card  12.3 

1-10 

Rfan 

fan  radius  used  to  construct  panel  corner 
points  in  REGION  3  of  the  inlet 

Card  13.3 

1-10 

eD1 

°D2 

two  defining  stations  for  this  inlet  PART; 

* 

11-20 

input  in  degrees ,  counterclockwise  when 
viewed  from  above 

0D1  <  °D2 

Card  14.3 

1-10 

M 

=  number  of  Z  coordinates  to  follow  on 
card  sets  15.3  and  16.3 

l.iMi  200. 

Card  Set  15.3 

1-10 

Z1 

coordinates  defining  the  panel  comer  points 

11-20 

Z2 

along  the  inlet  throat  for  the  first  defining 

21-30 

Zg 

station  dD1;  input  beginning  at  Z_ef  and 
proceeding  downward  to  the  wing  lower 

31-40 

Z4 

41-50 

surface  Z^.  There  must  be  M  coordi¬ 

51-60 

75 

0 

nates,  six  numbers  per  card. 

Card  Set  16.3 

1-10 

Z1 

coordinates  defining  the  panel  comer  points 

11-20 

Z2 

alone  the  throat  for  the  second  defining 

21-30 

Zg 

station  dD2 ;  input  beginning  at  Zref  and 

31-40 

proceeding  downward  to  the  wing  lower 

41-50 

ZC 

surface  Z^,  There  must  be  M  coordi¬ 

51-60 

Z6 

nates,  six  numbers  per  card. 
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Card  17.3 


Card  Set  18.3 


Card  10.4 


Card  11.4 


Card  12.4 


Card  13.4 


Card  Set  14.4 


* 

Card  Set  15.4 


Card  16.4 


Column  Code 
1-10  Np 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 


P1 

K 

P3 

p4 

p5 

'P6 


1-10  REGION 


1-10  PARTS 


1-10 

11-20 


PI 

#D2 


1-10  M 


1-10  R 
11-20  R* 
21-30  R, 
31-40  R^ 
41-50  RZ 
51-60  R® 

1-10  R. 

11-20  Rp 

21-30  R. 
31-40  R? 
41-50  RZ 
51-60  Rg 

1-10  Np 


Explanation 


=  number  of  0p  paneling  stations  to 
follow  on  card  set  18.3 

1.  <  Np  £  20. 

e  p  paneling  stations  in  degrees ;  input 
counterclockwise  viewed  from  above. 

There  must  be  Np  of  these  0p  stations, 
six  numbers  per  card. 

eDl  *  ffP  5  dD2 

=  4. ;  causes  program  to  perform  calcula¬ 
tions  in  REGION  4  of  the  inlet.  Cards 
11.4-17.4  that  follow  are  for  REGION  4. 

=  number  of  PARTS  in  REGION  4  of  the 
inlet.  Cards  12.4-17.4  must  be  input 
PARTS  times . 

two  defining  stations  for  this  inlet  PART; 
input  in  degrees ,  counterclockwise  when 
viewed  from  above 

0Dli  eD2 

=  number  of  R  coordinates  to  follow  on 
card  sets  14.4  and  15.4 

l.£MS  200. 

radius  values  defining  the  panel  corner 
points  on  the  lower  surface  for  the  first 
defining  station  input  beginning  at  the 
edge  of  the  fan  exit  and  proceeding  outward. 
There  must  be  M  values,  six  numbers  per 
card. 

radius  values  defining  the  panel  corner 
points  on  the  lower  surface  for  the  second 
defining  station  6-q2>  input  beginning  at  the 
edge  of  the  fan  exit  and  proceeding  outward. 
There  must  be  M  values,  six  numbers  per 
card. 

=  number  of  0p  paneling  stations  to 
follow  on  card  set  17.4 

1.  <  Np  <  20. 
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Column 

Code 

Explanation 

— 7C“ 

Card  Set  17.4 

1-10 

fa 

fa 

6P3 

fa 

6P5 

SP6 

6p  paneling  stations  in  degrees,  Input 

11-20 

counterclockwise  viewed  from  above. 

21-30 

There  must  be  Np  of  these  0p  stations, 

31-40 

41-50 

six  numbers  per  card. 

51-60 

9D1  0D2 

Card  10.5 

1-10 

REGION 

=  5. ;  causes  program  to  perform  calcula¬ 

tions  in  REGION  5  of  the  inlet.  Cards 
11.5-17.5  that  follow  are  for  REGION  5. 

Card  11.5 

1-10 

PARTS 

=  number  of  PARTS  in  REGION  5  of  the 

inlet.  Cards  12.5-17.5  must  be  input 
PARTS  times . 

Card  12.5 

1-10 

®D1 

two  defining  stations  for  this  inlet  PART; 
input  in  degrees,  counterclockwise  when 

11-20 

eD2 

viewed  from  above 

flDl*  eD2 

Card  10.5 

1-10 

M 

=  number  of  (R,  Z)  pairs  to  follow  on 

card  sets  14 . 5  and  15 . 5 

1.  SM  <  200. 

Card  14.5 

1-10 

R1 

coordinates  defining  the  interior  comer 

11-20 

Z1 

points  for  the  first  defining  station  Odj. 

21-30 

zi 

There  must  be  M  of  these  (R,  Z)  pairs, 

31-40 

six  numbers  per  card. 

41-50 

R3 

51-60 

Z3 

Card  Set  15.5 

1-10 

Rj 

z\ 

coordinates  defining  the  interior  comer 

11-20 

points  for  the  second  defining  station 

21-30 

R2 

There  must  be  M  of  these  (R,  Z)  pairs, 

31-40 

Z2 

six  numbers  per  card. 

41-50 

R3 

51-60 

Z3 

Card  16.5 

1-10 

NP 

=  number  of  0p  paneling  stations  to  follow 

X? 

on  card  set  17.5 

Column  Code 


Explanation 


Card  Set  17.5  1-10 

11-20 
21-30 
31-40 
41-50 
51-60 


P2 

*P3 


0p  paneling  stations  In  degrees.  Input 
counterclockwise  viewed  from  above. 
There  must  be  Np  of  these  Bp  stations, 
six  numbers  per  card. 


eDl  *  eP  *  eD2 


Card  10.6  1-10  REGION  =  6. ;  causes  program  to  perform  calcula¬ 

tions  In  REGION  6  of  the  inlet  that  pro¬ 
duces  wing  surface  contours.  Cards 
11. 6-13.6  that  follow  are  for  REGION  6. 


Card  11.6  1-10  M  =  number  of  points  to  be  computed  on  the 

wing  surface  in  each  0p  profile  station. 
These  points  are  computed  on  both  the 
upper  and  lower  surfaces  and  are  evenly 
distributed  between  RMIN  and  RMAX. 


11-20  RMIN  minimum  radius  for  which  surface  points 
are  computed.  RMIN  may  be  zero  or  a 
negative  number,  as  long  as  the  magnitude 
does  not  locate  a  point  off  the  planform. 

21-30  RMAX  maximum  radius  for  which  surface  points 
are  computed 

Card  12.6  1-10  Np  =  number  of  0p  profile  stations  to  follow 

on  card  set  13 . 6 


1.  SNp  1  20. 

B  p  profile  stations  in  degrees .  There 
must  be  Np  of  these  0p  stations,  six 
numbers  per  card. 

0.  £  0p  <  360. 

Blank  Card  blank  card  used  as  the  last  card  in  the 

”  INLET  data,  causing  the  program  to  exit 

subroutine  IN  LET  and  to  return  to  the 
main  program 


Figure  4.  Data  Card  Arrangement  for  Subroutine  INLET. 
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Figure  5.  Data  Card  Arrangement  for  REGION  1. 
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Figure  6.  Data  Card  Arrangement  for  REGION  2. 


Figure  7.  Data  Card  Arrangement  for  REGION  3. 
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Figure  8.  Data  Card  Arrangement  for  REGION  4. 
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Figure  9.  Data  Card  Arrangement  for  REGION  5. 
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TUBE  Input. — Figure  11  displays  the  data  card  arrangement  for  subroutine 
TUBE.  The  description  of  the  card  input  to  subroutine  TUBE  follows. 

Column  Code 


Card  1 

1-4 

TUBE 

Card  2 

1-10 

X. 

11-20 

0 

yn 

21-30 

z° 

31-40 

41-50 

51-60 

n°, 
„xb* 
n  t. 

ny£ 

zb 

Card  3 

1-10 

11-20 

tx 

21-30 

t* 

z 

Card  4 

1-10 

11-20 

V./VJ 
a  J 

21-30 

ip 

31-40 

Dfan 

Card  5 

1-10 

M 

Card  Set  6 

1-10 

X1 

11-20 

y\ 

21-30 

Z1 

31-40 

41-50 

y2 

51-60 

Lt 

Z2 

s  > 


Card  7 

1-10 

N 

Card  Set  8 

1-10 

Sl 

11-20 

S2 

21-30 

S3 

31-40 

S4 

41-50 

S5 

51-60 

S8 

Explanation 

Control  card — contains  the  word  TUBE. 

(*oi  Yo»  Zo)  is  a  point  on  the  fan  axis  and 
(nxb,  nyb>  Qzb)  are  the  direction  cosines 
of  the  fan  axis  directed  upward. 


direction  cosines  of  the  initial  jet  efflux 
direction 


ratio  of  free  stream  to  jet  velocity 
angle  of  attack,  in  degrees 
angle  of  yaw,  in  degrees 
fan  exit  diameter 

=  number  of  initial  points  on  the  wing 
lower  surface  to  follow  on  card  set  6 

1.  $  M  &  50. 

coordinates  of  the  initial  points  on  the 
wing  lower  surface  to  which  the  tube  is 
attached;  input  counterclockwise  viewed 
from  above  beginning  at  any  convenient 
point.  If  a  plane  through  the  fan  axis  is 
used  as  a  plane  of  symmetry  for  the 
geometry  and  flow,  only  half  of  the  tube 
is  input.  For  the  latter  case,  the  first 
and  last  points  coincide.  There  must  be 
M  of  these  initial  points,  six  coordinates 
per  card. 

=  number  of  arc  lengths  to  follow  on  card 
set  8 

l.iNS  50 , 

arc  lengths  measured  positive  downstream 
along  the  jet  core  trajectory.  These  define 
the  vortex  spacing  down  the  tube. 
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Column 


Code 


Explanation 


Card  9 


1-10  Ntr  =  number  of  s^  arc  lengths  over  which  the 

tube  geometry  is  to  be  adjusted  to  the 
shape  of  the  wing  lower  surface 

11-20  6  small  number  (-l.«  6  «  1.)  defining  the 

maximum  deviation  of  the  vortex  spacing  on 
opposite  sides  of  the  tube  axis  and  control¬ 
ling  the  rate  at  which  cross  sections 
become  perpendicular  to  the  tube  axis 

21-30  c.  small  positive  number  (0.005-0.01)  con- 

Dp  trolling  the  distance  of  the  boundary  point 

below  the  wing  surface,  is  the  ratio 
of  the  distance  from  the  wing  surface  to 
the  boundary  point  over  the  distance  from 
the  wing  surface  to  the  first  row  of 
vortices  on  the  tube. 
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AX1SYM  Input.  — Figure  12  shows  the  data  card  arrangement  for  subroutine 
AXISYM.  The  description  of  the  card  input  to  subroutine  AXISYM  follows. 


Column 

Code 

Explanation 

Card  1 

1-6 

AXISYM 

Control  card — contains  the  word  AXISYM. 

Card  2 

1-10 

M 

=  number  of  pairs  of  (R,  Z)  coordinates 
that  follow  cm  card  set  3 

l.iMi  50. 

11-20 

N1 

=  1. ;  one  (R,  Z)  card  set  follows  and  is 
used  for  ail  6  stations  input. 

=  N2;  a  separate  (R,  Z)  card  set  is  input 
for  each  e  station,  for  a  total  of  N2 
(R,  Z)  card  sets . 

Note:  1.  and  N2  are  the  only  permis¬ 
sible  values  of  Nj. 

Card  Set  3 

1-10 

R1 

(R,  Z)  coordinates  defining  the  contour  of 

11-20 

Z1 

an  axlsymmetriC  or  pseudoaxisymmetric 

21-30 

k 

body  in  a  radial  cutting  plane.  There 

31-40 

must  be  M  of  these  pairs ,  six  numbers 

41-50 

RS 

per  card.  If  Nj  =  1.0,  one  (R,Z)  card 
set  is  input.'  If  Nj  =  N2,  N2  (R,  Z)  card 
sets  must  be  input.  This  is  the  only  per¬ 
missible  number  of  (R,  Z)  card  sets. 

51-60 

Z3 

Card  4 

1-10 

N2 

=  number  of  radial  planes  that  follow  in 
card  set  5 

1.  iN2  5  50. 

Card  Set  5 

1-10 

01 

6  values  of  the  radial  planes  that  are  used 

11-20 

to  find  *>anel  corner  points  in  these  planes . 

21-30 

A 

There  must  be  Ng  of  these  values,  six 

31-40 

41-50 

51-60 

•i 

numbers  per  cara. 

Card  6 

1-10 

xo 

coordinates  of  the  origin  of  the  z2) 

11-20 

U 

coordinate  system  with  respect  to  (X3,y3,Z3) 

21-30 

< 

reference  coordinate  system 

Card  7 

1-10 

all 

a!2 

al3 

direction  cosines  of  X2  with  respect  to  the 

11-20 

21-30 

(xj.yi,  Zj)  coordinate  system 

Column  Code 


Explanation 


Card  8 


Card  9 


Card  10 


Card  11 


Card  12 


1-10 

11-20 

21-30 


21 

22 

23 


11-20  a"; 

21-30  ag 

1-10  k 
11-20  ki 

21-30  k^ 


the  direction  cosines  of  y«  with  respect 
to  the  (xj.ypZj)  coordinate  system 


the  direction  cosines  of  Z2  with  respect 
to  the  (x1,y1,  z^)  coordinate  system 


the  distortion  factors  that  multiply  respec¬ 
tively  the  (Xg.yo.Zg)  panel  corner-point 
coordinates .  Tne  coordinates  are  distorted 
after  they  have  been  transformed  into  the 
(x3 > y-.i ‘  z3>  coordinate  system. 


1-10  x  the  displacement  factors  that  are  added 

11-20  to  the  (x^.y^.z.)  panel  corner-point 

21-30  zp  coordinates  that  have  been  previously 

p  distorted  by  (kj , kg ,  kg) 

1-10  OUTCODE  =  0. ;  the  network  of  panel  corner  points 
will  be  output  with  the  6  varying  first. 

=  1. ;  the  (R,  Z)  will  vary  first  in  the 
output. 

Note:  It  is  important  to  determine 

beforehand  which  OUTCODE  is 
desired,  since  this  determines 
whether  the  coordinate  output 
defines  a  left-hand  or  a  right- 
hand  network. 


When  variable  spacing  is  used  for  the  quadrilateral  vortices  and  boundary-point 
locations  on  the  tube,  as  described  in  Volume  I,  Section  6.4,  the  TUBE  sub¬ 
routine  is  used  to  generate  the  positions  of  the  tube  boundary  points,  as  well  as 
the  vortices.  This  is  an  optional  feature  of  the  potential- flow  program;  ordi¬ 
narily,  it  computes  the  position  of  the  boundary  point  for  the  quadrilateral 
vortices  on  the  tube,  although  this  feature  should  not  be  used  with  variable  tube 
spacing.  The  procedure  for  generating  the  vortex  boundary  points  is  outlined 
below. 

First,  a  new  sfc  table  for  the  boundary-point  locations  is  used  to  input  to 
subroutine  TUBE. 

Second,  a  new  array  of  (x,y,zb  initial  points  for  input  to  subroutine  TUBE  is 
prepared  by  averaging  adjacent  x,  y,  and  z  values  of  the  original  initial  points 
on  the  wing  lower  surface.  Since  for  an  original  tube  there  are  M  x  N  panel 
comer  points,  there  are  (M  -  1)  x  (N  -  1)  boundary  points.  For  the  tube  bound¬ 
ary-point  case,  there  is  one  less  arc  length  and  initial  point  than  for  the  original 
tube  geometry. 

The  third  step  is  the  card  output  procedure.  A  nonstandard  print  format  is  used 
by  punching  (3F10.5)  in  card  columns  11-18  of  the  CARD  control  card  preceding 
the  tube  data  cards.  The  boundary  points  are  thus  punched  out  three  per  card 
rather  than  the  normal  six  per  card,  and  will  be  in  the  format  required  by  the 
potential-flow  program. 

3.1.3  Monitor  Control  Cards 

Figure  13  displays  the  monitor  control  cards  necessary  to  execute  the  geometry 
program.  A  detailed  description  of  each  card  follows: 

Monitor  Control  Card  1  is  the  job  card,  containing  the  job  name,  priority, 

central  processor  time  limit,  and  central  memory 
requirement.  Fields  are  separated  by  commas,  the 
last  field  being  terminated  by  a  period. 

NAME  is  the  job  name,  one  to  seven  characters;  the  first 
character  must  be  a  letter.  The  SCOPE  Operating 
System  replaces  characters  5,  6,  and  7  with  a  unique 
sequence  number  indicating  the  number  of  jobs  run 
through  the  system  since  dead  start. 

PR  is  the  job  priority,  1  through  17  (octal). 

T  is  the  central  processor  time  limit  in  seconds  (octal). 

FL  is  the  field  length  for  the  job  (octal). 

Monitor  Control  Card  2  is  the  accounting  card,  distinguished  by  the  letters 

A,  C,  C,  and  T  in  columns  1  through  4.  Information 
on  this  card  will  vary  between  computer  installations, 
but  generally  includes  the  user's  name,  location,  etc. 
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Figure  13.  Monitor  Control  Card  Arrangement  for  Geometry  Program. 
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is  the  program  call  card.  In  this  case,  the  RUN  com¬ 
piler  is  called  into  core  to  compile  and  execute  the 
source  decks.  The  letters  R,  U,  and  N  are  in  columns 
1,  2,  and  3,  followed  by  a  period  in  column  4. 

is  an  end-of-record  card.  This  card  contains  7-8-9 
punches  in  column  1. 

represents  the  source  decks .  Note  that  there  is  a 
terminal  end-of-record  card  (monitor  control  card  6), 
but  that  there  are  no  end-of-record  cards  between 
individual  source  decks. 

is  an  end-of-record  card. 

represents  the  input  data.  These  cards  will  vary, 
depending  on  the  particular  problem  to  be  run. 

is  an  end-of-file  card.  It  contains  6- 7-8-9  punches 
in  column  1.  There  must  be  only  one  of  these  per 
deck,  and  it  is  always  the  last  card. 

3.1.4  Program  Field  Length,  Timing,  and  Output  Estimate 

A  field  length  of  104,0G08  is  required  for  compilation  and  execution  of  the 
geometry  program. 

The  program  requires  approximately  20  seconds  of  central  processor  time  to 
process  one  surface  type,  except  the  jet  efflux  tube,  which  will  require  about 
1  minute.  The  number  of  lines  printed  depends  on  the  number  and  size  of  the 
cases  and  is  approximately  six  times  the  number  of  panels. 

3.2  POTENTIAL-FLOW  PROGRAM 

3.2.1  Machine  Components 

The  potential-flow  program  is  coded  in  the  FORTRAN  IV  and  ASCENT  languages 
for  the  CDC  6600  (131k)  digital  computer.  Control  of  the  computer  is  monitored 
by  the  SCOPE  Operating  System.  The  program  is  organized  to  utilize  the  seg¬ 
mentation  feature  of  the  loader. 

The  program  requires  20  data  files.  They  consist  of  one  input  data  file,  one 
output  file,  one  punch  data  file,  and  17  scratch  data  files.  The  data  files 
may  be  stored  on  disks  or  magnetic  tapes. 

3.2.2  Input  Data  Format 

This  section  describes  the  usage  of  the  potential-flow  program.  The  first  part 
provides  background  information  and  introduces  the  nomenclature  used  in  the 
preparation  of  input  data.  The  second  part  is  a  detailed  description  of  the  card 
input  format. 


Monitor  Control  Card  3 

Monitor  Control  Card  4 

Card  Set  5 

Monitor  Control  Card  6 
Card  Set  7 

Monitor  Control  Card  8 


•II 


Background  Information. 

Reference  coordinate  system. — All  geometric  inputs  must  be  in  the  x,y,z  refer¬ 
ence  coordinate  system.  They  can  be  given  in  any  convenient  length  dimension. 
The  location  and  the  size  of  the  configuration  in  this  coordinate  system  is  arbi¬ 
trary  except  when  the  symmetry  option  is  used.  The  angles  of  attack  and  yaw 
define  the  free-stream  direction  with  respect  to  the  reference  coordinate  axes. 
For  a  =  ip  =  0*  the  free-stream  velocity  is  directed  along  the  positive  x-axis 
of  the  reference  coordinate  system . 

Velocities. — All  velocities  used  in  the  program  are  nondimensionalized  with 
respect  to  the  free-stream  velocity,  except  for  the  special  case  of  zero  free- 
stream  velocity.  In  particular,  specified  normal  velocities  appearing  in  the 
boundary  conditions  must  be  nondimensional  with  respect  to  the  free-stream 
velocity.  vor  the  special  case  of  zero  free-stream  velocity,  the  boundary 
conditions  must  include  nonzero  specified  velocities,  or  the  solution  will  be 
trivial.  For  this  case  all  the  velocities  should  be  considered  as  velocities 
nondimensionalized  with  respect  to  a  reference  velocity  UR  used  to  define  the 
pressure  coefficient. 
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If  necessary,  the  resultant  velocity  components  can  be  made  dimensional  by 
multiplying  them  by  the  free-stream  velocity  or  reference  velocity  for  the 
respective  cases . 


Symmetric  and  unsymmetric  flow.  — The  potential-flow  program  handles  two 
types  of  flow:  symmetric  and  unsymmetric.  For  symmetric  flow,  the  plane 
of  symmetry  is  the  x-z  plane  and  inputs  are  required  only  for  y  *  0.  The  angle 
of  yaw  must  be  zero.  With  symmetry,  the  singularity  strengths  are  symmetric 
about  the  x-z  plane  and  the  program  combines  the  influence  of  the  reflected 
side  (y  *  0)  with  the  influence  of  the  basic  side.  The  obvious  advantage  of  a 
symmetric  flow  problem  is  that  the  number  of  singularities  is  only  half  of  those 
required  on  an  unsymmetric  flow  problem,  for  which  the  entire  body  must  be 
defined. 


Simultaneous  solutions . — The  Aerodynamic  Section  has  the  capability  of  pro¬ 
ducing  up  to  five  aerodynamic  solutions  simultaneously  for  a  given  geometric 
configuration.  Variations  of  a,  ip,  specified  inflow  distributions,  and  the  zero 
free-stream  condition  can  be  run  simultaneously  with  only  slightly  greater 
computation  time  than  required  for  a  single  case.  This  economy  occurs  because 
the  influence  coefficient  matrix,  which  depends  only  on  the  geometric  configura¬ 
tion,  is  only  computed  once. 

While  several  solutions  can  thus  be  obtained  for  a  single  run,  the  user  must  be 
aware  of  the  effect  of  further  approximations  in  the  theoretical  model  that  may  be 
introduced.  For  example,  the  placement  of  the  multihorseshoe  vortices  for  a 
wake  or  efflux  tube  are  assumed  for  a  given  direction  of  the  free-stream  velocity 
and  inlet  velocity  ratio.  Moderate  variations  of  the  free-stream  direction  and 
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inlet  velocity  ratio  with  the  wak»  and  efflux  tube  positions  fixed  will  still  yield 
useful  solutions.  However,  large  variations  of  these  quantities  may  result  in  a 
poor  representation  of  the  physics!  problem;  for  example,  large  deviations  of 
the  wake  and  efflux  tube  from  their  real  position  in  the  flow.  As  another  example, 
flows  with  zero  free- stream  velocity  should  not  be  run  simultaneously  with  flows 
having  a  free  stream,  for  the  zero  free-stream  cases  do  not  have  a  trailing  wake. 
However,  it  is  advantageous  to  combine  several  zero  free-stream  cases  having 
different  fan  inflow  yeioeity  distributions. 

Off- body  points. — The  velocity  components  and  pressure  coefficients  can  be 
found  at  points  off  the  body  by  specifying  their  location  in  the  reference  coordi¬ 
nate  system.  The  off-bidy  velocity  can  be  calculated  everywhere  except  in  the 
immediate  vicinity  (within  10-5  units)  of  a  source  panel  or  vortex  segment. 

While  the  above  limitations  reflect  the  computer  program 's  ability  to  compute 
the  velocity,  there  exist  larger  regions  where  the  velocity  will  not  be  physically 
correct.  As  explained  in  Volume  I,  Section  6,  velocities  calculated  near  source- 
panel  edges  or  near  concentrated  vortices  will  be  meaningless. 

Source  and  quadrilateral  vortex  panels. — To  describe  a  single  source  panel  or 
a  quadrilateral  vortex,  it  is  necessary  to  input  four  corner  points  (x^.yj,  zj  for 
i  =  1,  2,  3,  4)  in  the  reference  coordinate  system.  The  order  of  the  points  is 
shown  in  Figure  14(a).  The  order  of  points  is  important;  it  controls  the  direction 
of  the  unit  normal  vector  computed  by  the  program  at  the  panel  boundary  point, 
and  also  dictates  on  which  face  of  a  source  panel  the  boundary  condition  ^satis¬ 
fied.  The  unit  normal  vector  for  this  panel  would  be  generated  as  (23  x  14), 
where  23  designates  the  vector  from  corner  (2)  to  corner  (3).  It  thus  points 
upward  when  the  comer  points  are  ordered  as  shown.  For  source  panels,  the 
boundary  condition  is  imposed  on  the  face  containing  the  outward  directed 
normal,  so  it  is  necessary  that  all  normals  on  a  source-paneled  surface  be 
directed  outward. 

A  group  of  panels  or  quadrilateral  vortices  can  be  described  more  conveniently 
as  a  panel  network,  defined  by  a  rectangular  array  of  panel  comer  points.  The 
ordering  of  the  point  array  is  shown  by  the  parenthetical  numbers  in  Figure  14(b). 
These  points  are  arranged  in  N  columns,  each  containing  an  equal  number  of 
points.  The  size  of  the  network  is  designated  as  MxN,  the  total  number  of 
points.  The  total  number  of  panels  is  (M  -  1)  x  (N  -  1).  In  the  example  of 
Figure  14(b),  M  =4,  N  =  0,  the  size  of  the  network  is  M  x  N  =  20,  and  the 
number  of  panels  is  (M-  1)  x  (N  -  1)  -  12. 

The  terminology  used  to  describe  the  position  of  a  comer  point  or  singularity 
panel  in  a  network  is  shown  in  Figure  15.  Each  is  denoted  in  terms  of  its 
position  in  a  particular  column.  A  singularity  panel  in  Figure  15  bears  the 
same  column  designation  and  position  in  the  column  as  its  lower  left  corner 
point.  There  is  one  less  singularity  panel  column  than  point  column  and  one 
less  singularity  per  column  than  point  per  column.  A  network  arranged  on  a 
surface  as  shown  is  called  a  right-hand  network  because  when  viewed  by  an 
observer  standing  on  the  surface  exterior  and  facing  in  the  direction  of  increas¬ 
ing  position  in  a  column,  the  column  number  increases  to  the  right.  It  is  neces¬ 
sary  that  all  source-panel  networks  be  right-handed,  so  that  the  surface  normals 
constructed  by  the  program  will  be  directed  outward.  For  consistency  it  is 
helpful,  but  not  necessary,  to  input  quadrilateral  vortex  networks  in  the  same 


43 


Figure  14.  Source  and  Quadrilateral  Vortex  Networks. 
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Figure  15.  Column  Designations. 
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maimer  so  that  all  normals  point  outward  from  the  surface.  The  direction  of 
positive  vorticity  for  a  single  quadrilateral  vortex  is  shown  in  Figure  14(a). 
Similarly,  each  quadrilateral  vortex  in  the  network  of  Figure  14(b)  is  positive 
when  directed  clockwise. 

Multihorseshoe  vortex.  — The  properties  of  a  multihorseshoe  vortex  are  defined 
in  Volume  I,  Sections  3  and  6.  A  single  multihorseshoe  vortex  singularity  is 
input  fay  specifying  two  columns  of  points  in  the  reference  coordinate  system, 
the  number  of  points  in  a  column  (both  columns  must  have  the  same  number  of 
points) ,  the  number  of  bound  vortex  segments  MS,  and  the  weighting  Wj 
(i  =  l, .  . .  MS)  of  the  bound  vortex  segments.  The  order  of  the  points  tor 
inputing  is  shown  hi  parenthetical  numb  rs  in  Figure  16(a) .  The  bound  vortex 
segments  are  formed  by  connecting  the  first  MS  points  in  both  columns.  The 
direction  of  positive  vorticity  for  positive  weighting  is  from  point  column  one 
to  point  column  two. 

For  a  multihorseshoe  vortex  with  trailing  legs,  such  as  shown  in  Figure  16(a), 
there  is  no  restriction  on  the  choice  of  weights .  The  vortex  strength  of  each 
bound  element  will  be  equal  to  the  singularity  strength  or,  multiplied  by  the 
weight  of  the  bound  element.  The  vorticity  of  the  trailing  elements  follows 
from  the  continuity  of  vorticity  requirement.  It  is  often  convenient  to  select 
the  weights  such  that  X  Wj  =  1. ,  so  that  the  total  circulation  of  the  multi¬ 
horseshoe  will  be  equal  to  a.  It  is  essential  that  the  points  at  the  ends  of  the 
trailing  segment  (points  7  and  14  in  this  example)  be  remote  from  the  wing, 
since  the  trailing  legs  represent  vorticity  extending  to  infinity. 

The  form  of  multihorseshoe  vortex  used  for  the  fan  and  tube  internal  systems 
is  shown  in  Figure  16(b) .  The  number  of  bound  elements  is  equal  to  the  number 
of  points  in  a  column,  and  there  are  no  trailing  legs.  To  maintain  c'.ntinuity  of 
vorticity.it  is  necessary  that  XW)  =  0.  If  this  requirement  is  not  met,  the 

resulting  solution  will  not  satisfy  Laplace's  equation.  An  example  of  the  weight¬ 
ing  assigned  to  the  multihorseshoe  vortex  in  Figure  16(b)  might  be  Wj  =  -0.4, 

W2  =  -0.3,  W3  =  -0. 3,  W4  =  +1.  The  vorticity  on  the  fourth  brand  element 
would  then  be  directed  opposite  to  the  other  three,  with  strength  equal  to  the 
sum  of  the  other  bound  vortices.  As  explained  later,  the  weights  applied  to  the 
fan  and  tube  internal  systems  usually  are  arranged  in  a  similar  manner.  The 
one  bound  element  that  is  exterior  to  the  wing  (forming  either  the  first  circum¬ 
ferential  vortex  in  the  fan  face  or  the  first  segment  of  the  efflux  tube)  is  assigned 
a  weight  of  +1,  and  the  sum  of  the  other  bound  elements  interior  to  the  wing  must 
then  be  -1. 

A  group  of  multihorseshoe  vortices  with  common  sides  are  conveniently  described 
by  a  multihorseshoe  network,  as  shown  in  Figure  17.  The  parenthetical  num¬ 
bers  disnlay  the  ordering  of  the  Input  coordinates.  The  column  concept  of  points 
is  adaptt  1  here  also,  with  N  denoting  the  number  of  columns  and  M  the  num¬ 
ber  of  points  in  each  column.  A  network  is  described  by  the  numbers  M  and  N, 
the  total  number  of  points  M  x  N,  the  number  of  bound  segments  (MS)  in  a 
column,  and  the  weights  Wj(i  =  1,  .  .  .  MS).  One  set  of  weights  may  be  applied 
throughout  a  network,  or  the  weighting  of  each  multihorseshoe  may  be  assigned 
separately.  The  former  option  is  generally  used.  For  the  example  in  Figure  17, 
M  »  5,  N  *  6,  MS  *  3.  The  total  number  of  multihorseshoes  Is  N  -  1  =  5. 


45 


(a)  SINGLE  MOLTIHORSESHOE  WITH  TRAILING  ELEMENTS 


Figure  16.  Single  Multihorseshoe  Vortex  Arrangements. 
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Figure  17.  Multihorseshoe  Vortex  Network  Designations. 

Boundary-point  conditions . — The  location  (x,y,  z)  and  the  unit  normal  vector 
'Bx.ay  .n^)  of  the  boundary  points  are  determined  differently  for  each  of  the 
different  singularities.  For  a  source  panel,  the  boundary  point  is  fixed  by  the 
program  at  the  centroid  of  the  plane  panel,  with  the  unit  normal  vector  perpen¬ 
dicular  to  the  panel.  The  quadrilateral  vortex  boundary-point  location  and 
normal  can  be  computed  by  the  program  or  input  to  the  program.  The  computed 
legation  of  the  boundary  point  is  the  average  of  the  input  points  that  define  the 
quadrilateral  vortex,  and  the  unit  normal  vector  is  directed  along  the  vector 
product  of  the  diagonals  of  the  quadrilateral  vortex.  Boundary-point  conditions 
for  the  multihorseshoe  vortex  must  be  input  to  the  program.  The  various  input 
options  for  a  network  are  shown  in  Table  I. 

The  program  recognizes  two  types  of  boundary  conditions  at  the  boundary  points. 
The  first  boundary  condition  requires  zero  normal  flow  at  a  boundary  point; 
that  is,  the  flow  must  be  tangential  to  the  surface.  The  second  condition 
requires  a  specified  velocity  component  U8  in  the  direction  of  the  unit  normal 
vector.  If  unit  normal  vectors  point  outward  from  a  surface,  Us  will  be  nega¬ 
tive  for  flow  into  a  surface. 
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TABLE  I.  BOUNDARY-POINT  CONDITIONS 


Singularity 

Computed  by  Program 

Input  to  Program 

Source 

Panel 

x  y  * 

n  n  n 
x  y  “a 

- 

x  y  a 

n  n  n 
x  y  a 

*» 

[ 

4m 

x  y  * 

“x  ny  “a 

n  n  n 
x  “y  "a 

BB 

x  y  z 

■sn 

Multihorseshoe 

Vortex 

•» 

x  y  z 

n  n  n 

x  y  z 

Forces  and  moments. — The  forces  and  moment  coefficients  on  both  the  external 
wing  surface  and  the  lift  fans  can  be  calculated  as  an  option  in  the  program. 

The  necessary  reference  quantities  to  be  input  are  the  coordinates  of  a  point 
(xr,  yr>  zr)  at  the  origin  of  the  moment  axes,  the  reference  planform  area  Sr, 
chord  cr,  and  span  bp. 

Lift-fan  barrier. — The  assembly  of  singularity  networks  (multiborseshoe  and 
quadrilateral  vortex)  representing  the  fan  face  and  associated  internal  systems 
inside  the  wing  and  centerbody  is  termed  the  barrier  assembly.  In  the  frame¬ 
work  of  the  program,  each  barrier  assembly  can  be  represented  by  up  to  seven 
singularity  networks.  Each  of  these  singularity  networks  must  be  identified  in 
the  input  as  belonging  to  a  barrier  assembly. 

All  networks  in  the  barrier  assembly  must  be  input  in  a  specific  manner  if 
correct  fan  forces  and  velocities  on  the  fan  face  are  to  be  obtained.  The  point 
columns  of  each  network  must  be  radially  oriented,  with  the  column  designation 
increasing  counterclockwise  when  viewed  from  above.  Each  singularity  network 
must  evolve  completely  around  the  fan  axis,  360  degrees,  except  for  a  fan  with 
its  axis  in  the  plane  of  symmetry.  For  the  latter  case,  each  network  evolves 
half  way  around  the  fan  axis.  The  point  columns  or  radial  elements  of  all  singu¬ 
larity  networks  must  line  up  with  one  another,  and  all  must  begin  and  end  at  the 
same  angular  position,  which  is  arbitrary.  All  network  corner  points  not  interior 
to  the  wing  or  centerbody  must  lie  in  the  plane  of  the  fan  face.  In  addition,  each 
network  must  be  input  in  a  manner  such  that  the  direction  of  positive  vorticity 
for  each  Individual  singularity  (quadrilateral  or  multihorseshoe)  is  clockwise 
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when  viewed  from  above.  Finally,  the  individual  networks  must  be  ordered 
sequentially  in  the  order  of  decreasing  distance  from  the  fan  axis. 

In  practice,  a  barrier  is  usually  represented  by  a  combination  of  three  networks: 
two  quadrilateral  and  one  multihorsesboe.  The  location  of  a  column  of  each 
network  with  respect  to  the  inlet  and  centerbody  is  shown  in  Figure  18(a).  The 
multihorseshoe  network  forms  the  internal  lifting  system  associated  with  the 
bander  (sedVolume  I,  Section  6.4)  and  extends  to  the  outermost  circumferential 
segment  on  the  barrier.  The  first  quadrilateral  network  is  located  entirely  on 
the  barrier.  The  second  quadrilateral  network  extends  from  the  innermost 
circumferential  segment  on  the  barrier  to  the  center  of  the  centerbody.  Each 
network  extends  entirely  around  the  barrier,  360  degrees.  The  three  networks 
may  be  input  in  any  order,  but  must  be  assigned  the  following  sequence:  (1)  the 
multihorsesboe,  (2)  quadrilateral  1,  and  (3)  quadrilateral  2. 

The  rules  for  input  arrangement  laid  down  above  are  satisfied  when  these  three 
networks  are  input  in  the  following  manner.  The  multiborseshoe  network  may 
be  input  in  either  cf  the  two  ways  specified  in  Figure  18(b)  and  (c) .  In  either 
case,  the  network  point  columns  are  radially  oriented,  with  the  column  desig¬ 
nation  increasing  counterclockwise  as  viewed  from  above.  In  both  cases,  the 
weight  of  the  segment  on  the  barrier  must  be  +1 .  A  weight  of  zero  is  applied 
to  the  point  of  intersection  of  the  radial  vortices  with  the  inlet  wall  to  allow  a 
bend  in  the  vortices  at  this  point.  The  remainder  of  the  weights  of  the  seg¬ 
ments  internal  to  the  wing  mutt  add  up  to  -1.  The  number  of  internal  bound 
elements  used  is  optional.  The  boundary  points  for  this  system  are  placed 
adjacent  to  the  source  panels  on  the  inlet  wall  (see  Volume  I,  Section  6.4). 

The  first  quadrilateral  network  on  the  carrier  is  input  in  the  order  shown  in 
Figure  18(d) .  The  vortex  spacing  must  follow  the  recommendations  given  in 
Volume  I,  Section  6.4.  If  uniform  spacing  is  used  radially,  the  automatic 
boundary-point  placement  feature  of  the  quadrilaterals  can  be  used  for  the 
boundary-point  placement. 

The  second  quadrilateral  network  is  input  as  shown  in  Figure  18(e).  The  point 
columns  are  radial,  as  before,  with  the  column  designation  increasing  counter¬ 
clockwise.  The  boundary-point  coordinates  for  the  second  quadrilateral  must 
be  input. 

A  systematic  specification  of  the  direction  of  the  unit  normal  vectors  at  the 
barrier  boundary  points  should  be  followed  so  that  the  normal  velocity  is 
properly  directed.  If  all  vectors  are  directed  up,  then  the  specified  normal 
velocity  Us  at  the  barrier  boundary  points  must  be  negative  for  flow  into  the 
fan.  If  all  vectors  are  directed  down  into  the  fan,  the  specified  normal  flow 
must  be  positive.  Use  of  the  automatic  boundary-point  placement  feature  with 
the  first  quadrilateral  network  will  produce  upward-pointing  unit  vectors ;  their 
direction  may  be  reversed,  if  desired,  by  the  program  option.  Some  of  the 
above  requirements  are  summarized  in  Table  II. 
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TABLE  fi.  SUMMARY  OF  BOUNDARY- POINT  PLACEMENT  REQUIREMENTS 

Vortex 

Network 

Boundary- 

Point 

Unit 

Unit 

Networks 

Size 

Location 

Normal  Up* 

Normal  Down** 

Multihorseshoe 

MjXN 

Input 

Input 

Input 

Quadrilateral  1 

m2xn 

Computed 
(if  uniform 
radial 

Computed 

Input 

spacing  is 
used) 

Quadrilateral  2 

2  x  N 

Input 

Input 

Input 

*U8  will  be  negative  for  flow  into  the  fan. 

**US  will  be  positive  for  flow  into  the  fan. 

Additional  input  information  must  be  furnished  for  the  computation  of  velocities 
on  the  barrier,  barrier  areas,  and  fan  forces.  These  input  data  consist  of  the 
direction  cosines  (11^,11^, nz^  of  the  fan  axis,  directed  upward,  the  coordinates 
(xu.yu.ziJ  of  the  point  <ff  intersection  of  the  fan  axis  with  the  barrier  plane,  and 
a  table  of  radii  (rj)  and  angles  (0j) .  The  average  fan  exit  pressure  coefficient 
Cp  ,  the  centerbody  base  pressure  Cp  ,  the  diameter  (!<,  of  the  centerbody 

base,  the  distance  h  between  the  barker  and  the  fan  exit  plane,  and  the  direc¬ 
tion  cosines  (tx.ty.tjs)  of  the  vectored  fan  exit  flow  must  also  be  specified.  The 
radii  table  is  composed  of  the  radial  distances  from  the  fan  axis  to  the  inlet  wall, 
the  singularity  comer  points,  and  the  centerbody  wall.  The  table  of  angles  9 1 
denotes  the  angular  position  of  the  radial  barrier  vortices.  9  is  referenced 
from  a  radial  line  in  the  barrier,  parallel  to  the  x-z  plane  and  directed  aft 
from  the  fan  axis .  The  value  of  9  is  positive  in  the  counterclockwise  direction 
as  viewed  from  above.  The  program  can  accept  a  maximum  of  ten  lift  fans  for 
any  one  configuration. 

Streamlines . — Streamlines  can  be  calculated  on  source  panels  for  any  or  all  of 
»  the  five  solutions  that  may  be  run  simultaneously.  A  solution  is  identified  by  its 

order  in  the  input.  The  starting  point  for  the  backward  tracking  of  a  streamline 
is  identified  by  specifying  the  streamline  starting  panel  and  a  fractional  distance 
along  one  of  the  panel  edges  where  the  streamline  tracing  begins.  The  initial 
panel  is  identified  by  means  of  panel  column  terminology,  specifying  its 
♦  position  i  in  a  source-panel  column,  the  column  number  j  and  network  k. 

The  particular  panel  edge  e  is  numbered  1,  2,  3,  or  4  according  to  its  position 
in  the  network,  as  shown  in  Figure  19(a).  The  position  of  the  starting  point 
along  an  edge  is  specified  by  giving  its  fractional  distance  along  the  edge, 
measured  in  the  direction  of  clockwise  travel  around  the  panel  (Figure  lfKb)) . 
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(a)  PANEL  EDGE  DESIGNATION 

Figure  19.  Initial  Streamline  Data. 

The  velocity  derivative  dVt/dst  is  obtained  by  finite  difference  from  a  velocity 
calculated  at  a  small  offset  distance  from  a  source-panel  boundary  point.  This 
offset  distance  is  formed  from  an  input  fraction  times  the  maximum  source- 
panel  diagonal  of  a  configuration.  Recommended  values  of  the  input  fraction 
are  between  0.01  and  0.0001. 

Checking  inputs. — If  meaningless  results  are  to  be  avoided,  it  is  imperative 
that  all  geometry  be  input  correctly.  For  large,  complex  configurations  Involving 
many  networks  of  different  singularities,  it  is  not  uncommon  for  errors  to  occur 
in  the  inputs,  either  through  a  mispunched  data  card,  or  by  a  simple  oversight, 
or  perhaps  because  of  lack  of  program  experience.  The  program  has  been 
designed  to  furnish  aid  in  checking  the  inputs  by  means  of  the  following  feature. 
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The  program  is  divided  Into  several  sections,  the  first  one  dealing  with 
geometry.  This  section  converts  the  input  coordinate  arrays  and  other  infor¬ 
mation  into  individual  panel  coordinates,  generates  boundary-point  coordinates 
and  normals,  and  in  general  prepares  all  geometric  information  for  direct  use 
by  later  sections.  The  program  can  be  set  to  run  through  the  Geometric  Section 
only,  and  then  stop.  It  can  do  this  extremely  rapidly,  the  time  required  being 
approximately  1  percent  of  the  total  time  required  to  solve  the  problem.  The 
output  will  list  the  input  cards,  the  boundary-point  coordinates  and  normals, 
the  panel  corner  points,  the  area  and  maximum  diagonal  of  each  panel,  and  other 
descriptive  Information  listed  in  Volume  I,  Section  5.2.3.  Also  printed  out  will 
be  the  input  for  the  Aerodynamic  Section  with  the  comment  INVALID  CONTROL 
CARD.  The  user  can  then  setm  these  data,  looking  for  irregularities.  A  mis- 
punched  coordinate  will  usually  result  in  a  panel  whose  area  or  maximum  diagonal 
is  very  different  from  its  neighbor's,  and  it  is  easily  recognized.  The  displace¬ 
ment  distance  D  that  a  corner  point  is  moved  to  produce  a  planar  panel  is  also 
printed  out,  and  large  values  of  D  are  a  definite  indication  that  something  is 
wrong.  All  boundary-point  normals  should  be  scanned  to  ensure  that  they  point 
outward.  A  mistake  in  ordering  the  network  corner  points  can  easily  produce 
this  type  of  error. 

It  is  strongly  suggested  that  this  check  run  and  data  scanning  process  be  per¬ 
formed  before  committing  a  lengthy  run  to  the  computer.  Because  the  time 
required  for  the  check  run  is  negligible,  no  data- saving  feature  has  been 
included.  After  the  output  has  been  scanned  and  errors  corrected,  the  input 
data  must  be  resubmitted  for  running  through  the  complete  program. 

Input  format. 

This  section  provides  the  instructions  for  assembling  a  data  deck  for  the 
potential-flow  program. 

There  are  three  types  of  inputs  for  the  potential-flow  program:  numerical  data, 
title  card,  and  control  cards.  The  numerical  data  are  punched  in  seven-field, 
ten-digit  format,  and  all  numbers  must  have  a  decimal  point.  The  title  card 
will  accept  any  alphanumeric  characters .  The  control  cards  are  Identified 
from  the  first  four  columns  of  a  card.  The  remainder  of  a  control  card  may 
contain  any  alphanumeric  symbols  but  generally  contains  the  words  listed  below. 

The  control  cards  within  the  data  deck  are  used  to: 

1)  mark  the  beginning  and  the  end  of  two  blocks  of  data 

GEOMETRIC  SECTION 
END  OF  GEOMETRIC  SECTION 
AERODYNAMIC  SECTION 
END  OF  AERODYNAMIC  SECTION 

2)  terminate  the  computer  run  after  one  or  more  cases 

EXIT 
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3)  Identify  the  major  divisions  of  data  within  the  Geometric  Section 

SOURCE-PANEL  GEOMETRY 
QUADRILATERAL  VORTEX  GEOMETRY 
MULTIHORSESHOE  VORTEX  GEOMETRY 
OFF-BODY  POINTS 

If  any  division  of  the  Geometric  Section  is  not  used  for  a  case,  the  corresponding 
control  card  should  be  omitted.  The  ordering  of  these  four  cards  must  be 
maintained. 

For  submitting  a  check  run  through  the  Geometric  Section  only,  remove  the 
END  OF  GEOMETRIC  SECTION  and  the  AERODYNAMIC  SECTION  control  cards 
from  the  data  deck.  This  run  will  provide  a  listing  of  all  the  input  cards  plus 
the  output  of  the  Geometric  Section. 

To  run  multiple  cases  of  either  the  complete  or  the  check  type,  stack  the  cases 
consecutively  as  shown  in  Figure  20. 

The  detailed  card  input  format  for  the  Geometry  Section  (source-panel  geometry, 
quadrilateral  vortex  geometry,  multihorseshoe  vortex  geometry,  off-body 
points)  and  Aerodynamic  Section  follow. 
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GEOMETRIC  SECTION  CARD  INPUT 


Figure  21  displays  the  datacards  for  the  Geometric  Section  of  the  potential-flow 
program.  All  Geometric  Section  data,  except  title  and  control  cards,  are 
punched  In  seven-field,  ten-digit  format.  All  geometry  Is  defined  In  the  refer¬ 
ence  coordinate  system.  A  description  of  the  card  Input  to  this  section  follows. 


Column 

Code 

Explanation 

Card  1 

1-4 

GEOM 

Control  card — columns  1-4  contain  the 
word  GEOM. 

Card  2 

1-80 

TITLE 

any  desired  title 

Card  3 

1-10 

ICODE 

=  l. ;  symmetric  flow 

=  3.;  unsymmetric  flow 

11-20 

NSING 

=  cumber  of  singularities  used  to  repre¬ 
sent  the  potential-flow  model 

2.  S  NSING  i  1200. 

Source-panel  geometry  cards 
(See  page  58. ) 


Quadrilateral  vortex  geometry  cards 
(See  page  60. ) 


Multihorseshoe  vortex  geometry  cards 
(See  page  r3. ) 


Off-body  point  cards 
(See  page  67. ) 


Card  4  1-4  END  Control  card — columns  1-4  contain  the 

word  ENDb,  where  b  represents  a  blank. 


56 


Source-panel  geometry. — Figure  22  displays  the  data  cards  for  the  source- 
panel  geometry  subdivision  of  the  Geometric  Section.  These  cards  are  omitted 
if  the  potential-flow  model  does  not  require  the  source-panel  singularity  for  its 
representation. 


Column 

Code 

Explanation 

Card  1 

1-4 

SOUR 

Control  card — columns  1-4  contain  the 
word  SOUR. 

Card  2 

1-10 

NET 

=  number  of  source-panel  networks 

1.  <  NET  S  200. 

Cards  3  through  5  are  repeated  for  each  source-panel  network. 

Card  3 

1-10 

M 

=  number  of  points  per  column 

11-20 

21-30 

N 

=  number  of  point  columns  in  the  network 

2.  «M  <  500.,  2.  «  N  <  500.,  and 

4.  f  M  x  N  %  2500.  (See  Figure  14.) 

blank 

31-40 

OPTUS 

=  0. ;  all  normal  velocities  are  zero. 

-  10. ;  normal  velocities  specified  for 
each  simultaneous  solution. 

=  20. ;  normal  velocities  specified  once 
and  used  for  all  simultaneous  solutions , 

Card  Set  4 

1-10 

xi 

comer -point  coordinates  of  the  network 

11-20 

£ 

1 

source-panel  in  the  reference  coordinate 

«jr 

21-30 

system.  The  (M  x  N)  comer  points  are 

31-40 

X2 

input  sequentially,  two  per  card.  (See 

41-50 

51-60 

Z2 

Figure  14.) 

The  next  card  set  is  omitted  if  OPTUS  =  0.  The  card  set  consists  of 

((M-  1)  x  (N  - 1)]  cards,  one  for  each  source  panel  in  the  network,  arranged  in 

order  of  increasing  position  in  successive  columns  (Figure  15). 


If  OPTUS  =  10. ,  the  format  of  the  card  set  is: 


Card  Set  5 


1-10 

11-20 

21-30 

31-40 

41-50 


specified  normal  velocities,  one  for  each 
simultaneous  solution.  The  first  field 
(columns  1-10)  contains  the  normal  velocity 
for  the  first  solution,  etc.  The  number  of 
fields  used  equals  the  number  of  solutions. 
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If  OPTUS  «  20. ,  the  format  of  the  card  set  is: 
Column  Code 


Explanation 


Card  Set  5  1-10  Ug  specified  normal  velocity  used  for  all 

simultaneous  solutions 


Figure  22.  Data  Card  Arrangement  for  Source- Panel  Geometry. 
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Column 


Code 


Explanation 


Card  Set  4  1-10  x. 

11-20  y} 
21-30  z\ 
31-40  xf 
41-50  y J 
51-60  *2 


corner-point  coordinates  of  the  quadri¬ 
lateral  vortex  network  In  the  reference 
coordinate  system.  The  corner  points 
are  input  sequentially,  two  per  card. 
(See  Figure  14.) 


The  next  card  set  is  omitted  if  OPTBP  *  0.  The  card  set  consists  of 
f(M  - 1)  x  (N - 1))  cards,  one  for  each  quadrilateral  vortex  in  the  network, 
arranged  in  the  order  of  increasing  position  in  successive  columns  (Figure  15). 


If  OPTBP  *  10. ,  the  format  of  the  card  set  is: 


Card  Set  5  1-10 

X 

coordinates  of  the  boundary  point 

11-20 

y 

21-30 

z 

31-40 

n* 

unit  normal  vector  components  at  the 

41-50 

n 

boundary  point 

51-60 

i ? 

z 

If  OPTBP  =  20. ,  the  format 

of  the  card  set  is: 

Card  Set  5  1-10 

X 

coordinates  of  the  boundary  point 

11-20 

y 

21-30 

z 

If  OPTBP  =  30. ,  the  format  of  the  card  set  is: 


Card  Set  5 

1-30 

blank 

31-40 

unit  normal  vector  components  at  the 

41-50 

boundary  point 

51-60 

ny 

z 

The  next  card  set  is  omitted  if  OPTUS  -  0.  The  card  set  consists  of 

f(M- 1)  x  (N -  1)J  cards,  one  for  each  quadrilateral  vortex  in  the  network,  input 

arranged  in  the  order  of  increasing  position  in  successive  columns  (Figure  15). 

If  OPTUS  *  10. ,  the  format  of  the  card  set  is: 


Card  Set  6 


1-10 

11-20 

21-30 

31-40 

41-50 


kl 

fc 


array  of  specified  normal  velocities,  one 
for  each  simultaneous  solution.  The  first 
field  (columns  1- 10)  contains  the  normal 
velocity  for  the  first  solution,  etc.  The 
number  of  fields  used  equals  the  number 
of  solutions  (maximum  of  five) . 
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If  OPTUS  »  20. ,  the  format  of  the  card  set  la: 

Column  Code  Explanation 

Card  Set  8  1-10  Ug  specified  normal  velocity  used  for  all 

simultaneous  solutions 


Figure  23.  Data  Card  Arrangement  for  Quadrilateral  Vortex  Geometry. 
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Multlhorseshoe  vortgx  geometry. — Figure  24  displays  the  data  cards  for  the 
multihorseshoe  vortex  geometry  subdivision  of  the  Geometric  Section.  These 
cards  are  omitted  if  the  potential- flow  model  does  not  require  the  multihorse* 
shoe  vortex  singularity  for  its  representation.  A  maximum  of  110  multihorse¬ 
shoe  vortex  singularities  may  be  used. 


Column 

Code 

Explanation 

Card  1 

1-4 

MULT 

Control  card — columns  1-4  contain  the 
word  MULT. 

Card  2 

1-10 

NET 

=  number  of  multihorseshoe  vortex 
networks 

1.  i  NET  £  100. 

Cards  3  through  7  are  repeated  for  each  multlhorseshoe  vortex  network. 

Card  3 

1-10 

M 

«  number  of  points  per  column 

11-20 

N 

*  number  of  point  columns  in  the  network 

2.  iMi  50.,  2.iNi  100.,  and 
4.iMxNi  2500. 

21-30 

MS 

■  number  weighted  segments  per 
multlhorseshoe 

1.  $  MSS  50.  (See  Figure  16.) 

31-40 

OPTWT 

*  1. ;  array  of  weighting  values  are 
specified  once,  and  these  values  apply 
to  all  multlhorseshoe  vortices  of  the 
network. 

■  10. ;  array  of  weighting  values  are 
specified  for  each  multlhorseshoe 
vortex  of  the  network. 

41-50 

OPTBP 

=  10. ;  boundary-point  coordinates  (x,y,  z) 
and  unit  normal  vector  components 
(n^ny.ng)  are  to  be  input  for  all  multi- 
hor  /shoe  vortices  of  the  network. 

51-60 

OPTUS 

*  0. ;  all  normal  velocities  are  zero. 

*  10. ;  normal  velocities  specified  for 
each  simultaneous  solution. 


=  20. ;  normal  velocities  specified  once 
and  used  for  all  simultaneous  solutions. 
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Column 


Code 


Explanation 


Card  Set  4  1-10  x, 

11-20  yf 
21-30  zZ 
31-40  x, 
41-50  yi 
51-60  z* 


corner-point  coordinates  of  the  multi- 
horseshoe  vortex  network  in  the  reference 
coordinate  system.  (M  x  N)  corner  points 
are  input  sequentially,  two  per  card. 

(See  Figure  17.) 


The  next  card  set  is  for  the  specified  weights. 


If  OPTWT  =  1. ,  the  format  of  the  card  set  is: 


Card  Set  5  1-10  W, 

~ 11-20  wi 

21-30  w; 
31-40  Wj 
41-50  W ! 
51-60  wr 
61-70  W® 


weighting  values  for  the  bound  multi¬ 
horseshoe  vortex  segments.  MS  values 
are  input.  These  values  apply  to  all 
multihorseshoe  vortices  of  the  network. 


If  OPTWT  *  10. ,  the  format  of  the  card  set  is: 


Card  Set  5  1-10  W, 

11-20  W* 
21-30  w; 
31-40  VT 
41-50  W? 
51-60  W? 
61-70  W° 


weighting  values  for  the  bound  horseshoe 
vortex  segments.  (N  -  1)  card  sets  of  MS 
weighting  values  are  input,  one  card  set 
for  each  multihorseshoe  vortex. 


The  next  card  set  consists  of  (N  - 1)  cards,  one  for  each  multihorseshoe  vortex 
in  the  network. 


Card  Set  6  1-10 

X 

coordinates  of  the  boundary  point 

11-20 

y 

21-30 

z 

31-40 

unit  normal  vector  components  at  the 

41-50 

n* 

boundary  point 

51-60 

nz 

The  next  card  set  is  omitted 

ifOPTUS  =0.  The  card  set  consists  of  (N  -  1)  cards, 

one  for  each  multihorseshoe  vortex  in  the  network. 
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Column  Code 


Explanation 


If  OPTUS  =  10. ,  the  format  of  the  card  set  is: 


Card  Set  7 


1-10 

11-20 

21-30 

31-40 

41-50 


S“ 

S 


array  of  specified  normal  velocities,  one 
for  each  simultaneous  solution.  The  first 
field  (columns  1-10)  contains  the  normal 
velocity  for  the  first  solution,  etc.  The 
number  of  fields  used  equals  the  number 
of  solutions  (maximum  of  five) . 


If  OPTUS  =  20. ,  the  format  of  the  card  set  is: 

Card  Set  7  1-10  Ug  specified  normal  velocity  used  for  all 

simultaneous  solutions 


65 


LAST  NETWORK 


Off-body  point  geometry. — Figure  25  displays  the  data  cards  for  the  off-body 
points.  These  cards  are  omitted  if  the  velocity  at  off-body  points  is  not  desired. 


Card  1 

1 

f 


Column 

Code 

Explanation 

1-4 

OFF 

Control  card — column  1-4  contains  the 
word  OFFb,  where  b  represents  a  blank 
or  the  word  OFF-. 

Card  2 


1-10  NOFF  =  number  of  off-body  points 


1.  SNOFFS  2500. 


coordinates  of  the  off-body  points.  NOFF 
points  are  input,  two  per  ca 'd. 

31-40  x£ 

41-50  yt 
51-60  Zg 


Card  Set  3  1-10  x. 

11-20  yf 


Figure  25.  Data  Card  Arrangement  for  Off- Body  Points. 
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AERODYNAMIC  SECTION  CARD  INPUT 


6 


Figure  26  displays  the  data  cards  for  the  Aerodynamic  Section  of  the  potential- 
flow  program. 

All  Aerodynamic  Section  data,  except  control  cards,  are  punched  in  seven-field, 
ten-digit  format.  All  input  aerodynamic  geometry  is  defined  in  the  reference 
coordinate  system.  A  description  of  the  card  input  to  this  section  follows. 


Column 

Code 

Explanation 

Card  1 

1-4 

AERO 

Control  card — columns  1-4  contain  the 
word  AERO. 

Card  2 

1-10 

NRHS 

=  number  of  simultaneous  solutions 
desired 

1.  iNRHSS  5. 

11-20 

FORCES 

force  and  moment  option  code 

=  0. ;  no  forces  and  moments  are 
calculated. 

■  1. ;  all  forces  and  moments  are 
calculated. 

21-30 

PLOT 

plotting  option  code 

-  0. ;  no  plotting  desired. 

=  1. ;  plotting  of  Cp  vs  x/c  over  the 
source-paneled  model  is  desired  (used 
only  if  plotting  facility  is  available) . 

31-40 

NARRAY 

=  number  of  lift  fans  in  the  model 

0.  £  NARRAY  £  10. 

41-50 

NSL 

=  number  of  streamlines  desired 

0. £  NSL  £  50. 

The  following  card  set  consists  of  one  card  for  each  solution. 

Card  Set  3 

1-10 

or 

angle  of  attack  in  degrees 

11-20 

* 

angle  of  yaw  in  degrees 
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Column 


Code 


Explanation 


Card  Set  3  (cont'd) 

21-30  VZERO  aero  free-stream  velocity  option 

=  0. ;  option  not  exercised.  The  dimen¬ 
sionless  free-stream  velocity  has  a 
value  of  unity  In  a  direction  specified 
by  the  angles  of  attack  and  yaw 

=  l. ;  zero  free-stream  velocity  condition. 
The  angles  of  attack  and  yaw  have  no 
meaning. 


The  following  card  is  omitted  unless  FORCES  =  1.0. 
Card  4 


1-10 

Xr 

11-20 

yr 

21-30 

< 

I  moment  reference  axis 

31-40 

Sr 

reference  planform  area 

41-50 

cr 

reference  chord 

51-60 

br 

reference  span 

Cards  5  through  10  are  repeated  for  each  lift  fan  in  the  model.  A  maximum  of 
ten  lift  fans  can  be  specified. 


Card  5  1-10  NET  =  number  of  quadrilateral  and  multi¬ 

horseshoe  networks  used  to  form  the 
barrier  assembly 

1.  £  NET  £  7. 

11-20  TYPE  =  1. ;  half  fan  input.  This  occurs  when 

the  center  of  the  fan  is  in  the  plane  of 
symmetry  (x-z)  and  the  flow  is 
symmetrical. 

=  2. ;  complete  fan  input.  This  occurs 
whenever  the  center  of  the  fan  is  not 
in  the  plane  of  symmetry  (x-z)  or  when 
the  flow  is  unsymmetric. 


21-30  Cn 

assumed  pressure  coefficient  at  the 

PC 

centerbody  base 

31-40  Cn 

assumed  pressure  coefficient  at  the  exit 

pe 

plane 
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Column  Code  Explanation 

Card  s  41-50  MR  =  number  of  radial  points  used  at  each  9 

(cont'd)  looation  to  define  tbe  barrier  areas 


2.  £MR  S  20. 

51-60  NTHETA  *  number  Of  angles  used  to  define  the 

barrier  areas 

2.  *  NTHETA  £  50. 

Card  6  1-10  xL  coordinates  of  the  barrier  center 

11-20  yP 

21-30 

31-40  n  .  unit  normal  vector  components  along  the 

41-50  nr  fan  axis ,  directed  upward 

51-60  ng 

Card  7  1-10  t  unit  vector  components  in  the  direction  of 

11-20  tx  the  flow  from  the  fan  exit 

21-30  tj 

31-40  h  average  distance  between  the  barrier  and 

the  exit  plane 

41-50  dc  diameter  of  the  centerbody  base 

Card  8  1-10  NT.  sequential  identity  of  the  barrier  singu- 

11-20  NTT  larity  networks  used  to  form  a  barrier 

21-30  NT,  assembly.  They  must  be  ordered  from 

31-40  NT]?  the  outside  to  the  inside  of  the  barrier. 

41-50  NTg  The  identification  number  applies  to  the 

51-60  NTg  order  In  which  a  network  is  input.  A 

61-70  NT®  positive  number  denotes  a  quadrilateral 

'  vortex  network,  and  a  negative  number 
denotes  a  multihorseshoe  vortex  network. 
For  example,  NTi  =  -3.  means  that  the 
third  multihorseshoe  vortex  network  input 
is  used  to  represent  the  first  network  of 
the  barrier  assembly.  NET  networks  are 
listed. 


Card  Set  9  1-10  r. 

11-20  ri 
21-30  r, 
31-40  rj 
41-50  r* 
51-60  r® 
61-70  r 5 


radial  distances  used  to  form  barrier 
areas,  in  sequential  order.  There  are 
MR  of  these. 
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Column 

Code 

Explanation 

* 

Card  Sot  10  1-10 

11-20 
21-30 
31-40 
41-50 
51-60 
61-70 

X 

K 

J4 

•? 

angles  used  to  form  barrier  areas,  in 
sequential  order.  There  are  NTHETA 
angles. 

Cards  11  and  12  are  repeated  for 

each  streamline  cm  the  model. 

* 

Card  11  1-10 

KSOL 

identifies  the  particular  simultaneous 
solution  for  which  the  streamline  is 
desired,  based  on  the  order  of  input  of 
the  simultaneous  solutions 

1.  £KSOL£5. 

11-20 

1 

position  in  the  panel  column  of  the 
streamline-starting  panel 

21-30 

J 

panel  column  of  the  streamline-starting 
panel 

31-40 

k 

source-panel  network  containing  the 
streamline-starting  panel 

41-50 

1 

maximum  length  of  the  streamline 

51-60 

d/de 

fractional  distance  of  streamline-starting 
point  along  edge  e 

61-70 

e 

Identifies  the  streamline-starting  edge  of 
the  panel  (Figure  19) 

Card  12  1-10 

€ 

fraction  of  the  maximum  source-panel 
diagonal  (Vgv)  used  form  e10*  which 
is  the  offset  distance  used  in  the  calcula¬ 
tion  of  dV{/dst.  If  e  *  0. ,  the  derivative 
will  not  be  calculated. 

m 

Card  13  1-4 

END 

Control  card — columns  1-4  contain  the 
word  ENDb,  where  b  represents  a  blank. 

Figure  26.  Data  Card  Arrangement  for  Aerodynamic  Section. 
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3.2.3  Monitor  Control  Cards 

Figure  27  displays  the  monitor  control  cards  necessary  to  execute  the  potential 

flow  program. 

Monitor  Control  Card  1  is  the  job  card,  containing  the  job  name,  priority,  I 

central  processor  time  limit,  and  central  memory  ) 

requirement.  Fields  are  separated  by  commas,  the 
last  field  being  terminated  by  a  period. 

NAME  is  the  job  name,  one  to  seven  characters;  the  first 
character  must  be  a  letter.  The  SCOPE  Operating 
System  replaces  characters  5,  6,  and  7  with  a 
unique  sequence  number  indicating  the  number  of 
jobs  run  through  the  system  since  dead  start. 

PR  is  the  job  priority,  1  through  17  octal. 

T  Is  the  central  processor  time  limit  In  seconds  (octal) . 

FL  is  the  field  length  for  the  job  (octal) . 

Monitor  Control  Card  2  is  the  accounting  card,  distinguished  by  the  letters 

A,  C,  C,  and  T  in  columns  1  through  4.  Information 
on  this  card  will  vary  between  computer  Installations 
but  generally  Includes  the  user's  name,  location, 
and  telephone  number. 

Monitor  Control  Card  3  is  the  compiler  program  call  card.  In  the  card 

illustrated,  the  RUN  compiler  is  called  into  core  to 
compile  the  program  source  decks . 

S  is  the  compiler  mode  option.  The  letter  S  will 
cause  the  RUN  compiler  to  compile  and  list  the 
source  decks  but  will  not  execute  them. 

FNAME  is  the  file  name  on  which  the  program  binary  routines 
are  written.  This  must  contain  the  name  FNAME. 

lc  is  the  line  limit  (octal)  on  the  OUTPUT  file.  If  the 
line  count  exceeds  the  specified  line  limit,  the  nm 
is  terminated. 

Monitor  Control  Card  4  copies  all  the  binary  routines  from  the  INPUT  file 

to  the  program  file  (FNAME).  These  binary  routines 
are  the  Boeing-developed  matrix  routines. 

INPUT  is  the  file  name  on  which  the  program  binary  routines 
are  initially  stored. 
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rd 

Monitor  Control  Card  5 

Monitor  Control  Card  6 
Monitor  Control  Card  7 

Monitor  Control  Card  8 

Card  Set  9 

Monitor  Control  Card  10 
Card  Set  11 

Card  Set  12 

Monitor  Control  Card  13 


1 8  the  number  of  binary  records  (each  routine  Is  one 
record)  to  be  copied. 

copies  one  binary  record  (the  Input  data)  from  the 
INPUT  file  to  file  TAPE5. 

rewinds  file  TAPES. 

Is  the  program  call  card.  The  name  FNAME  must 
appear  In  columns  1  through  5,  followed  by  a  period 
In  column  6.  This  card  loads  and  executes  the 
program. 

is  an  end-of-record  card.  This  card  has  In  column  1 
the  punches  7-8-9. 

represents  the  FORTRAN  source  decks.  Note  that 
there  is  a  terminal  end-of-record  card  (monitor 
control  card  10),  but  that  there  are  no  end-of-record 
cards  between  Individual  source  decks. 

is  an  end-of-record  card. 

represents  the  matrix  package  binary  routines 
supplied  with  the  program.  There  are  end-of-record 
cards  terminating  each  routine. 

represents  the  Input  data.  These  cards  will  vary 
depending  on  the  number  and  type  of  configurations 
to  be  run. 

Is  an  end-of-file  card.  This  card  has  in  column  1 
the  punches  6-7- 8-9.  It  Is  used  to  designate  the  end 
of  the  job  input  file  and  must  be  the  last  card  of  the 
deck. 


74 


UNARY  DECKS 


AN  END-OF-RECORD  CARD 
TERMINATES  EACH  BINARY 
ROUTINE. 


3.2.4  Program  Field  Length,  Timing,  and  Output  Estimate 


The  maximum  field  length  of  the  potential-flow  program  is  240,000  octal  words, 
which  is  reached  when  the  zero  level  or  main  segment  and  the  level  1  segment 
containing  the  streamline  subroutines  are  loaded. 

Program  timing  is  divided  into  central  processor  timing  and  peripheral 
processor  timing.  Central  processor  time  is  the  time  required  to  execute 
and  control  the  program,  while  peripheral  processor  time  is  the  time  needed 
to  perform  all  input/output  functions  required  by  the  program.  The  central 
processor  time  is  largely  a  function  of  the  number  of  singularities  needed  to 
represent  the  configuration,  although  the  number  of  off- tody  points  and  the 
number  of  streamlines  also  affect  the  timing.  Figure  28  presents  a  conserva¬ 
tive  estimate  of  the  central  processor  time.  The  peripheral  processor  time  is 
generally  three  to  eight  times  longer  than  the  central  processor  time,  depending 
on  how  the  computer  is  loaded  with  other  programs . 

An  estimate  for  the  printed  output  is  given  by 

lines  =  5  •  NSING  +  NOFF  +  1.2  •  NSOL  •  (NSING  +  NOFF)  +  110  •  NSL  (8) 

where  NSING  3  number  of  singularities 

NOFF  =  number  of  off- tody  points 

NSOL  ■  number  of  solutions  desired 

NSL  s  number  of  streamlines 

3.3  BOUNDARY- LAYER  PROGRAM 

3.3.1  Machine  Components 

The  boundary-layer  program  is  coded  in  FORTRAN  IV  for  the  CDC  8600  (13110 
digital  computer.  Control  of  the  computer  is  monitored  by  the  SCOPE  Operating 
System.  Two  data  files  for  input  and  output  are  required  by  the  program. 

3.3.2  Input  Data  Format 

A  description  of  the  input  format  of  the  boundary- layer  program  is  given  in  this 
section.  The  majority  of  the  quantities  in  the  data  input  are  obtained  from  the 
potential-flow  program.  Because  o f  the  system  of  panels  employed  in  the 
potential-flow  analysis  and  because  of  the  method  of  calculating  the  streamlines 
and  parameters  associated  with  the  streamlines,  it  is  necessary  to  evaluate  and 
perhaps  to  interpret  the  potential- flow  results  before  they  are  used  in  the 
boundary- layer  program.  Such  interpretation  is  discussed  in  detail  in  Volume  I, 
Section  6. 


Figure  28.  Potential- Flow  Program  Central  Processor  Time  Estimate. 
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Figure  29  displays  the  stacked  data  cards  for  the  boundary- layer  program.  All 
data,  except  the  title  card,  are  punched  in  a  seven-field,  ten-digit  format.  A 
decimal  point  is  required  in  each  data  field.  A  description  of  the  card  input  to 
this  program  follows. 


Column 

Code 

Explanation 

Card  1 

1-72 

TITLE 

any  desired  title 

Card  2 

1-10 

A 

potential  velocity  derivative  at  the  stagna¬ 
tion  point,  or  initial  momentum  thickness 

11-20 

NX 

number  of  points  along  the  streamline  at 
which  the  velocity  is  to  be  specified 

21-30 

RINF 

R*,,  Reynolds  number  based  on  the 
reference  velocity 

31-40 

STEP 

-  0. ;  the  output  is  printed  at  each 
integration  step. 

7*  0. ;  the  output  is  printed  at  equally 
spaced  increments  of  distance,  STEP, 
along  streamline. 

41-50 

SL 

total  length  of  the  streamline 

51-60 

FLAG 

=  0. ;  initial  value  of  the  momentum 

thickness  = 

/A*RINF 

^  0. ;  Initial  momentum  thickness  =  A. 

The  next  NX  cards  specify  the  streamwise  velocity  and  normal  velocity  deriva¬ 
tive  along  the  streamline.  Each  card  contains  the  values  at  one  point  on  the 
streamline.  The  points  are  ordered  In  sequence  proceeding  in  the  upstream  • 

direction  along  a  streamline. 

Card  Set  3  1-10  s  distance  from  farthest  downstream  point 

along  the  streamline 

11-20  V  potential-flow  velocity  at  the  distance  s 

along  the  streamline 

21-30  dVt/dst  normal  velocity  derivative  at  s.  The 
derivative  of  the  component  of  velocity 
normal  to  the  streamline  along  the  surface 
orthogonal  trajectory. 
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3.3.3  Monitor  Control  Cards 

Figure  30  displays  the  monitor  control  cards  necessary  to  execute  the  boundary- 

layer  program. 

Monitor  Control  Card  1  is  the  job  card,  containing  the  job  name,  priority, 

central  processor  time  limit,  and  central  memory 
requirement.  Fields  are  separated  by  commas,  the 
last  field  being  terminated  by  a  period. 

NAME  is  the  job  name,  one  to  seven  characters;  the  first 
character  must  be  a  letter.  The  SCOPE  Operating 
System  replaces  characters  5,  6,  and  7  with  a 
unique  sequence  number  indicating  the  number  of 
jobs  run  through  the  system  since  dead  start. 

PR  is  the  job  priority,  1  through  17  (octal) . 

T  is  the  central  processor  time  limit  in  seconds  (octal) . 

FL  is  the  field  length  for  the  job  (octal). 

Monitor  Control  Card  2  is  the  accounting  card,  distinguished  by  the  letters 

A,  C,  C,  and  T  in  oolumns  1  through  4.  Information 
on  this  card  will  vary  between  computer  installations 
but  generally  includes  the  user's  name,  location, 
and  telephone  number. 

Monitor  Control  Card  3  is  the  program  call  card.  In  this  case,  the  RUN 

compiler  is  called  into  core  to  compile  and  execute 
the  source  decks.  The  letters  R,  U,  and  N  are  in 
columns  1  through  3,  followed  by  a  period  in 
column  4. 

Monitor  Control  Card  4  is  an  end-of-record  card.  This  card  contains  7-8-9 

punches  in  column  1. 

Card  Set  5  represents  the  source  decks.  Note  that  there  Is  a 

terminal  end-of-record  card  (monitor  control  card  6) 
but  that  there  are  no  end-of-record  cards  between 
individual  source  decks. 

Monitor  Control  Card  6  is  an  end-of-record  card. 

Card  Set  7  represents  the  input  data.  These  cards  will  vary, 

depending  on  the  particular  problem  to  be  run. 

Monitor  Control  Card  8  is  an  end-of-file  card.  It  contains  6- 7-8-9  punches 

in  column  1.  There  must  be  only  one  of  these  per 
deck,  and  it  is  always  the  last  card. 
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3.3.4  Program  Field  Length,  Timing,  and  Output  Estimate 

A  field  length  of  50,  OOOg  is  required  for  compilation  and  execution  of  the 
boundary- layer  program. 

The  program  requires  approximately  8  seconds  of  central  processor  time  to 
process  one  case. 

An  estimate  of  the  printed  output  is  given  by 

lines  =  (N  +  1)  +  R  (9) 

where  N  =  number  of  points  at  which  the  velocity  is  specified  if  STEP  ^  0 

R  *  8L/STEP,  the  streamline  length  divided  by  the  increment  of 
spacing.  If  STEP  =  0,  R  is  set  to  1000. 
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APPENDIX  I 


FLOW  CHARTS 


A  problem  flow  chart,  supplemented  by  flow  charts  of  the  three  programs,  is 
presented  in  this  appendix.  (See  Figures  31  through  43. ) 


- GEOMETRY  PROGRAM - 

|  CONTROL  ROUTINE  f 

|  WING  PANELING 

|  LIFTING  SYSTEM 

|  INLET  REGION  PANELING 

|  EFFLUX  TUBE  PANELING 

|  AX  (SYMMETRIC  BOOY  PANELING 

POTENTIAL-FLOW  i'HOGRAM- 
|  CONTROL  ROUTINE  | 


PRELIMINARY  GEOMETRIC  CALCULATIONS 


AEROOYNAMIC  SOLUTION 


BOUNDARY-LAYER  PROGRAM 


BOUNDARY-LAYER  PARAMETERS 


I 

I 

I 

J 


Figure  31.  Fan-in-Wing  Problem  Flow  Chart, 
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Figure  32.  Geometry  Program  Flow  Chart. 
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Figure  34.  Geometry  Program — Subroutine  LIFT  (Lifting  System). 
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INLET 


Figure  35.  Geometry  Program — Subroutine  INLET  (Inlet  Region  Paneling). 
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DATE 


FLOW  CHART  OF  GEOM. 


SEE  FIGURE  39  FOR  DETAILED 
FLO»  CHART  OF  AERO. 


SEE  FIGURE  40  FOR  DETAILED 
FLO*  CHART  OF  MATRIX. 


ScE  FIGURE  41  FOR  DETAILED 
FLO*  CHART  OF  FLO*. 


SEE  FIGURE  42  FOR  DETAILED 
FLO*  CHART  OF  STREAM. 


Figure  37.  Potential- Flow  Program  Flow  Chart. 


SS 


ENTRY 


Figure  39.  Potential- Flow  Program— Subroutine  AERO 
(Velocity  Matrix  Formation). 


ENTRY 


Figure  40.  Potential- Flow  Program — Subroutine  MATRIX 
(Matrix  Equation  Solution). 


92 


Figure  41.  Potential-Flow  Program — Subroutine  FLOW 
(Potential- Flow  Solution). 


Figure  42.  Potential- Flow  Program — Subroutine  STREAM 
(Streamline  Trajectories). 


Figure  43.  Boundary-  Layer  Program  Flow  Chart. 
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APPENDIX  H 

SEGMENTATION  STRUCTURE 


A 

% 

$ 


The  geometry  and  potential- flow  programs  exceed  the  capacity  of  a  single  core 
load  and  utilize  the  segmentation  feature  of  the  loader.  Figures  44  and  45 
illustrate  the  segmentation  structure  and  list  the  subroutines  required  for  each 
segment,  respectively. 


« 


MAIN 

DATE 

DIRECT 


i - 1 - r .  "i - 1 - 1 

i"  if  n  *  II  *■'  ■■■  1 1  ■■  *  ir- 


AXISYM 

GRAPH 

INLET 

FITTER 

„  LIFT 

TUBE 

*  W!NG 

OBLIQ 
*  RCOSIN 

ALI 

CAL 

SCONIC 

SCUBIC 

SIMPRC 

SQUAD 

TRACON 

VALCUB 

♦  THE  FOLLOWING  ARE  REPEATED  ABOVE. 


ACS 

PINT 

BQUAD2 

POPO 

CROSS 

R00TP2 

CUBIT? 

R00TP3 

CURFIT 

ROTRAN 

FOIL 

SELECT 

LINER 

TRNSLT 

N0RM2 

XCN2 

N0RM3 

Figure  44.  Geometry  Program  Segmentation  Structure. 
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328 


MAIN 

CONTRL 

DATE 

INTURP 

DATA 

AERO 

MATRIX 

FLOW 

1  STREAM 

PLOT 

MATDAT 

CONSUR 

SFLOV 

THE  BOEING- 

FORCES 

PANEL 

UFLOi 

DEVELOPED 

READTP 

FAIL 

MATRIX 

SEARCH 

PACKAGE 

ENDSL 

RHS 

HEROSL 

WRTETP 

SFLOWI 

READTP 

GEOM 
PARTIN 
SPGEO 
QVGEO 
MHVGEO 
OFFPTS 
SOR 


SHF 


Figure  45.  Potential- Flow  Program  Segmentation  Structure. 
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APPENDIX  lU 


SUBROUTINE  DESCRIPTIONS 

The  subroutines  of  the  three  programs — geometry  program,  potential-flow 
program,  and  boundary- layer  program — are  described  in  this  appendix.  The 
purpose,  method,  usage,  subprograms  called,  error  returns,  and  restrictions 
are  given  in  detail  for  each  subroutine. 

A.  Geometry  program  subroutine  descriptions. — The  subroutines  listed 
alphabetically  below  are  discussed  in  this  section. 

Subroutine  Index 


Subroutine 

Page 

Subroutine 

Page 

Subroutine 

Page 

ACS 

98 

INLET 

114 

ROTRAN 

136 

All 

99 

LIFT 

119 

SCONIC 

137 

AXISYM 

100 

LINER 

121 

SCUBIC 

138 

BQUAD2 

102 

MAIN 

122 

SELECT 

139 

CAL 

103 

NORM2 

123 

SIMPRC 

141 

CROSS 

104 

NORM  3 

124 

SQUAD 

143 

CUBIT2 

106 

OBLIQ 

125 

TRACON 

144 

CUR  FIT 

107 

PINT 

128 

TRNSLT 

145 

DATE 

109 

POPO 

129 

TUBE 

146 

DIRECT 

no 

R  COS  IN 

131 

VALCUB 

149 

FITTER 

111 

ROOTP2 

133 

WING 

150 

FOIL 

112 

ROOTP3 

134 

XCN2 

152 

GRAPH  113 


SUBJECT: 


FORTRAN  IV  Subroutine  ACS 


PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


To  find  the  x,  y,  and  z  coordinates  of  the  average  center 
of  four  points  and  the  direction  cosines  of  the  normal  to 
the  surface  at  the  average  center 

The  diagonal  vectors  Tj  and  ?2,  shown  in  Figure  46,  are 
found  Jrom  the  input  coordinates.  Their  cross  product, 
To  x  Tj,  is  calculated,  from  which  the  direction  cosines 
of  the  normal  are  found.  The  coordinates  of  the  average 
center  are  found  by  averaging  the  coordinates  of  the  four 
input  points. 


Figure  46.  Subroutine  ACS  —  Panel  Diagonals. 


CALL  ACS  (X,  Y,  Z,  OUT) 

DIMENSION  X(4),  Y(4),  Z(4),  OUT  (6) 

arrays  of  the  x,  y,  and  z  coordinates 
of  the  four  points 

Output:  OUT  (1)  »x  coordinate  of  the  average  center 
OUT  (2)  =y  coordinate  of  the  average  center 
OUT  (3)  =  z  coordinate  of  the  average  center 
OUT  (4)  *  direction  cosine  of  the  normal  with 
respect  to  the  x-axis 

OUT  (5)  -  direction  cosine  of  the  normal  with 
respect  to  the  y-axis 

OUT  (6)  3  direction  cosine  of  the  normal  with 
respect  to  the  z-axis 


None 

None 

None 


Input: 


X 

Y 

Z 
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SUBJECT: 


FORTRAN  IV  Function  AU 


PURPOSE :  Given  a  curve  defined  by  a  cubic  and  two  of  the  three 

quantities  a,  b,  and  a,  to  find  the  third  quantity,  where  s 
is  the  length  of  the  cubic  from  x  =  a  to  x  =  b 

METHOD:  Subroutine  CAL  is  used  to  compute  the  arc  length  of  the 

cubic  over  any  interval. 


If  a  or  b  is  to  be  calculated,  an  iterative  technique  is 
used. 

USAGE:  J  =  All  (C,  A,  B,  S,  K) 

DIMENSION  C(8) 

Input:  C(l)  =1.0 

C(2)  =  minimum  x  for  which  cubic  is  defined 
C(3)  =  maximum  x  for  which  cubic  is  defined 
C<4)  =3.0 
C(5)  -  Co  \ 

C(6)  =  Cj  /  coefficients  of  the  cubic  equation 

cSliji  *  •••*•**•? 

A  =  a,  left  end  of  curve  segment 
B  =  b,  right  end  of  curve  segment 
S  =  s,  arc  length  of  curve  segment 
K  >  0,  given  a  and  s,  find  b 
=  0,  given  a  and  b,  find  s 

<  0,  given  b  and  s,  find  a 

Output:  a,  b,  or  s,  depending  on  the  value  of  code  K 

J  =  1,  if  C(4)  is  not  3.0 
=  5, 000,  if  cubic  not  defined  at  a 
=  10,000,  if  cubic  not  defined  at  b 

<  0,  M,  error  return  to  M  from  subroutine 
CAL 

=  0,  success 

SUBPROGRAMS 
CALLED:  CAL 

LOOK 

ERROR  RETURNS:  J,  see  USAGE 
RESTRICTIONS:  None 
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C. 


* 


SUBJECT:  FORTRAN  IV  Subroutine  AXISYM 

PURPOSE:  To  find  the  x,  y,  and  z  coordinates  of  an  axi symmetric 

body 

METHOD:  This  subroutine  accepts  input  data  in  an  (r,z,0)  coordinate 

system  as  shown  in  Figure  47,  and  transforms  it  into  an 
(x,y,z)  system. 


z 


Figure  47.  Subroutine  AXISYM— Polar  Coordinate  System. 

Input  consists  of  a  table  of  n  0's  and  either  one  or  n 
tables  of  r  versus  z,  allowing  a  separate  r-z  table  for 
each  0  if  desired. 

The  x,  y,  and  z  coordinates  calculated  from  these  tables 
may  be  rotated  and  distorted,  and  then  translated  to  any 
position  before  or  after  distortion.  The  following 
equations  define  the  several  transformations  performed 
on  the  input  (r,z,0)  coordinates: 


Transformation  to 

(x,y,z)  system:  Xj^rcosO 

yj  =  r  8in0  (J1) 


Rotation: 


First 

Translation: 


X 

to 

_ i 

y2 

= 

■  Z2. 

'x3* 

i- 

y3 

8 

-Z3. 

all  a12  a13 
a21  a22  a23 

^AA 


2 

H 

z. 


'V 

+ 

yo 

.ao. 

L11J 


(12) 


(13) 
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USAGE: 

SUBPROGRAMS 

CALLED; 

ERROR  RETURNS; 


Distortion: 


Last 

Translation: 


X4 

1 

Vs' 

y4 

S 

-Z4- 

Lk3*aJ 

4J 


AP 

yP 

LZP. 


(14) 


(15) 


The  variables  used  in  the  above  equations  are  defined  as 
follows: 


r,  $ ,  and  z  are  body-  defining  coordinates. 


and  aj3  axe  direction  cosines  of  thB  x2- 
respect  to  the  (Xj.Yj,  Zj)  system.  . 


a21>  a22«  ^  ®23  are  direction  cosines  of  the  y2- 
axis  with  respect  to  the  (x^y^,  z^)  system. 


Xq,  y0,  and  Zq  are  origin  coordinates  of  the  (x2,y2t  z2) 
system  with  respect  to  the  (X3,y3,  Z3)  system. 


k^,  k2,  and  kg  are  distortion  factors  for  the 
(X3»y3»z3)  system. 

xp,  yp,  and  zp  are  origin  coordinates  of  the 
(x4,y4l  z4)  system  with  respect  to  the  (x,y,  z)  system. 


CALL  AXISYM 

Input  for  subroutine  AXISYM  is  detailed  in  Section  3. 1.2. 

Output  consists  of  x,y,  and  z  coordinates  of  the  body, 
optionally  p  nched  on  cards. 


None 

None 

None 


RESTRICTIONS: 


SUBJECT: 


FORTRAN  IV  Subroutine  BQUAD2 


PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


To  find  coefficients  of  a  cubic  or  either  of  two  quadratics 
passing  through  all  or  three  of  four  given  points 

Subroutine  BQUAD2  calculates  three  quadratic  coefficients 
or  four  cubic  coefficients,  depending  on  the  value  of  the 
input  K. 

If  K  -  1,  the  coefficients  of  the  quadratic  Q1  (x)  passing 
through  the  first  three  points  are  calculated. 

If  K  =  3,  Q2(x)  is  calculated,  passing  through  the  last 
three  input  points. 

When  K  -  2,  a  cubic  C(x)  is  calculated  using 
Equation  16. 


C(x) 


(x3-x)  Q1(x)  +  (x-x^  Q2(x» 


V*2 


2  3 

=  CQ  +  CjX  +  CgX  +  CgX 


(16) 


CALL  BQUAD2  (X,  Y,  C,  K,  J) 

DIMENSION  C(4),  X(4),  Y(4) 

Input:  X  )  _  arrayc  of  x  and  y  coordinates  of  the  four 


input  points 
K  =  1, 

=  2,  see  METHOD 
a  3, 

Output:  C  =  array  of  quadratic  or  cubic  coefficients, 
depending  on  K 

J  -  1,  success 

=  2,  division  by  zero  was  attempted 


None 

J,  see  USAGE 


The  four  input  x  values  must  be  strictly  monotonic ■'Hy 
increasing. 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


FORTRAN  IV  Subroutine  CAL 

To  calculate  the  arc  length  s  of  a  cubic  over  a  specified 
interval,  from  x  =  a  to  x  =  b 

Subroutine  CAL  calls  subroutine  SCUBIC  to  find  the  arc 
length  of  the  cubic. 


CALL  CAL  (C,  X,  S,  J) 
DIMENSION  C(5),  X(2) 


Input: 


C(l)  *  3. 0 
C(2)  —  Cq  ' 
C(3)  =  Cl 
C(4)  =  c2 
C(5)  =  C3 


coefficients  of  the  cubic  equation 
2  3 

y  =  c0  +  Cj*  +  c2x  +  CgX 


X(l)  =  a  or  b 
X(2)  =  b  or  a 

Output:  S  =  s,  the  arc  length 

J  *  0,  success 
=  -1,  C(l)  *  3.0 
=  -2,  error  return  from  SCUBIC 


SCONIC 

SCUBIC 

SQUAD 

TRACON 

J,  see  USAGE 

None 
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SUBJECT: 


FORTRAN  IV  Subroutine  CROSS 


PURPOSE :  To  find  an  Intersection  within  a  specified  interval 

l  a,  b]  of  two  functions  given  a  first  approximation, 
x,  to  the  abscissa  of  the  intersection 

METHOD:  Let  *r  and  #_  be  the  two  functions  (evaluated  by  sub¬ 

routines  DUMR  and  DUMS,  respectively).  Subroutine 
CROSS  finds  two  abscissas  in  the  specified  interval, 
xp  and  xjj,  such  that  the  difference  function, 
g(x)  *  *r  -  *B  changes  sign  between  diem  (see  Figure 48). 


Figure  48.  Subroutine  CROSS — Intersection  of  Two  Functions. 


USAGE: 


A  new  value  of  x  is  calculated  using  these  two  points 
from  the  formula 


x  =  Xjj- 


XP-*N 
g(Xp)  -  g(xN) 


*  *<*N> 


(17) 


The  difference  function  is  calculated  at  this  x  value. 

If  g(x)  has  the  same  sign  as  g(xp),  x  replaces  xp. 
Otherwise,  x  replaces  x^.  This  process  is  repeated 
until  successive  x  values  are  equal,  g(x)  »  0,  or  NI 
(see  USAGE)  iterations  have  been  made. 

CALL  CROSS  (DUMR,  CR,  DUMS,  CS,  A,  B,  NI,  X, 

Y,  J) 

DIMENSION  CR(m),  CS(n) 

Note:  m  and  n  are  large  enough  to  agree  with  DUMR  and 
DUMS,  respectively. 

EXTERNAL  DUMR,  DUMS 

Input:  DUMR  {names  of  subroutines  that  evaluate  the 
DUMS  |  functions  *r  and  4»g 
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££i  arrays  of  coefficients  that  define 
pc  I* functions;  dimensioned  to  agree  with 
'  DUMRandDUMS 

A)  m  la,  b],  interval  to  be  searched  for 

B )  intersection 

NI  =  maximum  number  of  iterations 

X  -  first  approximation  to  the  abscissa  of 
the  intersection 

Output:  Nl  =  number  of  iterations  required  to  find  the 
intersection 

X  =  abscissa  of  the  intersection 
Y  =  ordinate  of  the  intersection 

J  ■  0,  success 

-  1,  no  intersection  found 

-  -1,  error  in  DUMR 
=  -2,  error  in  DU  MS 

=  -3,  NI  iterations  exceeded 

SUBPROGRAMS 

CALLED:  DUMR  and  DUMS.  These  subroutines  must  have  a 

calling  sequence  of  the  form 

CALL  DUMR  (C,  X,  Y,  J), 

where  inputs  are  C,  an  array  containing  the  function 
coefficients,  and  X,  the  value  of  the  independent 
variable.  Outputs  are  Y,  the  function  value  at  X,  and 
J,  an  error  return  that  equals  zero  on  success. 

ERROR  RETURNS:  J,  see  USAGE 

RESTRICTIONS:  A  <  B 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


FORTRAN  IV  Subroutine  CUBIT2 

To  evaluate  a  cubic  and  ita  first  two  derivatives  at  a 
given  value  of  the  independent  variable 


Let  y  *  cq  +  cjx  +  C2X2  +  C3X3  represent  the  cubic  and 
define 


A  3  c2  +  CgX, 

(18) 

B  3  Cj  +  Ax. 

(19) 

Then  Y  3  Cq  +  Bx, 

(20) 

^  3  B  +  X{A  +  CgX), 

(21) 

"  2C2  +  ‘V 

(22) 

CALL  CUBIT2  (C,  X,  Y,  J) 

DIMENSION  C(4),  Y(4) 

Input:  C<1)  3  c0 
C(2)  3 
C(S)  3  c2 
C(4)  3  Cg 

X  3  given  value  of  the  independent  variable 
Output:  Y(l)  3  function  value  at  x 
Y<2)  3  1.0 

Y(3)  3  first  derivative  at  x 
Y(4)  3  second  derivative  at  x 

J  3  0 

None 

None 

None 
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SUBJECT 


FORTRAN  IV  Subroutine  CURFIT 


PURPOSE:  To  find  the  z  coordinate  corresponding  to  a  given  x, 

given  a  table  of  x  vereue  z 


METHOD:  The  input  x-z  table  defines  an  airfoil, as  shown  in 

Figure  49. 


Figure  49.  Subroutine  CURFIT — Airfoil  Definition. 


An  input  code  indicates  whether  the  z  coordinate  is  to  be 
evaluated  on  the  upper  or  lower  surface.  The  specified 
surface  definition  is  then  searched  to  find  the  interval  in 
which  the  given  x  lies.  After  a  transformation  to  pre¬ 
vent  a  double  value,  subroutine  BQUAD2  is  called  to 
calculate  the  coefficients  of  a  biquadratic  passing  through 
the  four  adjacent  points.  Subroutine  POPO  calculates  the 
intersection  between  this  biquadratic  and  the  vertical 
line  passing  through  the  given  x.  The  coordinates  of 
this  intersection  are  then  transformed  back  to  the 
original  coordinate  system,  and  control  is  returned  to 
the  calling  program. 

USAGE:  CALL  CURFIT  (X,  Z,  NLE,  NTE,  XIN,  CODE,  ZOUT) 

DIMENSION  X(n),  Z(n)  (200  >nl  NTE) 

T  ,  X)  arrays  containing  x  and  z  coordinates 

mpui:  Z)  defining  the  airfoil 

NLE  =  subscript  of  leading- edge  point  in  the 
x  and  z  defining  arrays 

NTE  =  subscript  of  trailing-edge  point  in  the 
x  and  z  defining  arrays.  This  number 
is  also  the  number  of  points  defining 
the  airfoil,  since  the  last  point  in  the 
array  is  required  to  be  the  trailing  edge. 

XEN  =  the  x  value  at  which  the  z  coordinate  is 
desired 
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SUBPROGRAMS 

CALLED: 


CODE  >  0. ,  if  upper  surface  z  coordinate  is 
”  desired 

<  0. ,  if  lower  surface  z  coordinate  is 
desired 


Output:  ZOUT 


BQUAD2 

NORM2 

POPO 

ROTRAN 

SELECT 

TRNSLT 

XCN2 


z  coordinate  on  the  desired  surface 
corresponding  to  x  =  XIN 


ERROR  RETURNS: 


RESTRICTIONS: 


Subroutine  CURFIT  will  return  unsuccessfully  in  two 
cases:  first,  if  the  input  x  value  is  not  within  the  range  of 
the  defining  table,  CURFIT  returns  after  printing  its  input 
arguments;  second,  when  an  error  flag  is  returned  from 
subroutine  POPO. 

If  subroutine  BQUAD2  returns  an  error  flag,  a  comment 
to  that  effect  is  printed,  but  the  program  attempts  to 
continue  processing. 

The  defining  x  and  z  coordinates  must  be  ordered  as 
described  in  the  METHOD;  that  is,  the  x  values  must  be 
strictly  monotonic  ally  decreasing  from  the  upper  trailing 
edge  forward  to  the  leading  edge,  and  strictly  monotonic- 
ally  increasing  back  to  the  lower  trailing  edge. 

Note:  The  two  trailing- edge  points  need  not  be  co¬ 
incident,  nor  does  the  leading  edge  need  be 
defined  at  x  =0.  The  upper  trailing  edge  is 
simply  the  first  point  in  the  table,  the  leading 
edge  is  that  point  with  the  minimum  x  coordinate, 
and  the  lower  trailing  edge  is  the  last  point  in  the 
table. 
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SUBJECT: 


FORTRAN  IV  Subroutine  DATE 


PURPOSE :  To  obtain  the  current  date 

METHOD:  This  is  a  dummy  subroutine  that  returns  blanks.  An 

appropriate  change  may  be  made  at  the  user's  installation 
to  return  the  true  date. 

USAGE:  CALL  DATE  (A,  B) 

Output:  .A  =  first  portion  of  the  date  (alphameric) 

B  -  last  portion  of  the  date  (alphameric) 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 


RESTRICTIONS: 


None 


SUBJECTS 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


FORTRAN  IV  Function  DIRECT 

To  search  a  directory  of  words  for  a  given  word  or  to 
produce  a  word  for  a  given  subscript 

When  K  l  0  (see  USAGE),  Auction  DIRECT  searches 
through  a  table  of  40  BCD  words  for  the  given  word.  If 
a  match  is  found,  then  DIRECT  returns  the  subscript  of 
that  word  in  its  table.  If  the  given  word  is  not  in  the 
table,  then  the  Auction  value  is  set  to  -1. 

If  a  word  corresponding  to  a  given  subscript  is  desired, 
then  the  Auction  value  is  set  to  that  word.  A  check  is 
made  to  see  whether  the  subscript  is  larger  than  40;  if 
so,  the  function  value  is  set  to  999S99  (BCD). 

I  =  DIRECT  (WORD,  K) 

Input:  WORD  =  Hu  hollerith  word  for  which  a  sub¬ 
script  is  desired  if  K  10;  ignored 
when  K  >  0. 

K  <  0,  indicates  that  the  subscript 
corresponding  to  WORD  is  desired 

>  0,  indicates  that  the  word  with  sub¬ 
script  K  is  desired 

Output:  I  =  either  a  subscript  or  a  hollerith  word, 

depending  on  K.  Care  must  be  taken 
to  ensure  that  this  argument  is  in  the 
desired  mode,  or  the  FORTRAN 
compiler  will  automatically  change  the 
mode  across  the  equal  sign. 


None 

I  =  -1,  given  word  not  in  the  directory 
I  =  6H999999,  K  greater  than  40 

K  <  40 


110 


Wmmww 


SUBJECT 


FORTRAN  IV  Subroutine  FITTER 


PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


Given  two  airfoils  defined  by  a  table  of  x/c  and  z/c  values, 
this  subroutine  redefines  one  of  the  airfoils  so  that  both 
airfoils  are  specified  at  the  same  x/c  values. 

The  longer  of  the  two  tables  is  used  as  the  base  table, 
the  shorter  being  matched  to  it.  If  both  tables  are  the 
same  length,  the  first  table  is  used  as  the  base  table. 

After  checking  which  ta^le  to  use  as  the  base  table,  the 
two  tables  are  matched  sing  subroutine  CURFIT. 


CALL  FITTER  (XC,  ZC,  N) 

DIMENSION  XC(2O0, 2),  ZC(200,2),  N(2) 


Input:  XC(i,  1)| 

_  nrfoil- defining  x/c  and  z/c  values 

ZC(i,l)| 

~  for  first  section,  i  *  1,  N(l) 

XC(i,2)| 

_  airfoil  x/c  and  z/c  values  for  second 

ZC(i,2)  j 

~  section,  i  =  1,  N(2) 

N(l) 

-  number  of  defining  points  of  the  first 
airfoil  section 

N<2) 

-  number  of  defining  points  of  the 
second  airfoil  section 

Output:  Either  the  first  or  second  airfoil  section  will  be 
altered  so  that  the  x/c  values  correspond  to  those 
in  the  other  section.  The  criterion  for  deciding 
which  section  to  alter  is  described  in  METHOD. 


CURFIT 

None 

A  maximum  of  200  points  may  be  used  to  define  the  airfoil 
sections.  Points  must  be  ordered  as  required  by  sub¬ 
routine  CURFIT. 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


FORTRAN  IV  Subroutine  FOIL 

To  transfer  a  normalized  airfoil  definition  into  the 
reference  coordinate  system,  given  the  x,  y,  and  z 
coordinates  of  the  leading  and  trailing  edges 

The  chord  length  and  angle  of  rotation,  if  any,  are  cal¬ 
culated.  The  input  x/c  and  z/c  values  are  multiplied  by 
the  chord  length,  after  which  they  are  rotated  through 
the  appropriate  angle  and  translated  to  the  reference 
coordinate  system. 

CALL  FOIL  (XLE,  YLE,  ZLE,  XTE,  YTE,  ZTE,  XC, 

ZC,  N,  X,  Y,  Z,  LE) 

DIMENSION  XC(n),  ZC(n),  X(n),  Y(n),  Z(n)  (NSn<  200) 

coordinates  of  the  leading  edge  in  the 
reference  coordinate  system 

coordinates  of  the  trailing  edge  in  the 
reference  coordinate  system 

arrays  of  x/c  and  z/c  values  defining 
the  airfoil 

number  of  defining  points 

arrays  of  x,  y,  and  z  coordinates  of 
the  airfoil  in  the  reference  coordinate 
system 

subscript  of  leading  edge 


NORM3 

ROTRAN 

None 

N,  the  number  of  defining  points,  is  limited  to  200. 


Input: 


Output: 
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SUBJECT: 

PURPOSE: 


« 


FORTRAN  IV  Subroutine  GRAPH 

To  graphically  display  the  geometric  surfaces 

Since  the  plotting  capabilities  of  each  computer  installa¬ 
tion  vary,  subroutine  GRAPH  written  at  Boeing  could  not 
be  used  elsewhere.  Therefore,  subroutine  GRAPH  is  a 
dummy  subroutine.  The  information  to  be  plotted,  how¬ 
ever,  is  stored  on  a  data  file  where  it  may  easily  be  re¬ 
trieved  by  a  plot  routine  tailored  to  the  user's  installation. 
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SUBJECT:  FORTRAN  IV  Subroutine  INLET 

PURPOSE:  To  produce  x,  y,  and  z  coordinates  of  the  area  around  a 

fan- in- wing 

METHOD:  The  area  surrounding  the  inlet  is  divided  into  fiv?  distinct 

regions.  The  first  of  these,  region  1  (shown  in  Figure  50), 
is  the  area  on  the  upper  or  lower  wing  surface  that  is 
unaffected  by  the  presence  of  the  inlet. 


Figure  50.  Subroutine  INLET*— Region  1  of  the  Inlet. 

The  area  outside  region  I  is  paneled  in  the  usual  manner. 
Subroutine  WING  is  usually  used  for  this  purpose.  The 
inlet  is  divided  into  two  regions,  2  and  3.  Figure  51  is 
a  side  view  of  the  inlet  showing  these  two  regions. 
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Region  2  is  usually  referred  to  as  the  lip  of  the  inlet; 
region  3  is  the  inlet  throat.  The  two  regions  differ 
in  that  the  throat  is  simply  a  cylinder,  whereas  the  lip 
flares  out  to  join  the  wing  surface. 

Region  4  is  a  disk-shaped  area  on  the  lower  surface  of 
the  wing  connecting  region  3  (the  inlet  throat)  to  region 
1  of  the  lower  surface.  Figure  52  shows  a  bottom 
view  of  the  inlet  area,  showing  regions  4  and  1. 


Figure  52.  Subroutine  INLET  —Region  4  of  the  Inlet. 


Region  5  is  the  internal  vortex  network,  corresponding 
to  the  lifting  system  produced  ‘>y  subroutine  LIFT. 
Figure  53  shows  a  cross  section  showing  region  5. 


Figure  53.  Subroutine  INLET  —Region  5  of  the  Inlet. 


Paneling  methods  for  each  of  these  five  regions  »r  > 
described  below. 

Before  panel  coordinates  for  any  regions  can  be  cal¬ 
culated,  a  wing  definition  must  be  input.  This  definition 
is  the  same  as  that  used  in  the  WING  subroutine;  namely, 
two  tables  of  x/c  and  z/c  values,  and  the  x,  y,  and  z 
coordinates  of  the  leading  and  trailing  edges  of  the  ^ 

airfoil  sections. 

When  paneling  region  1,  a  table  of  percentages  and  two 
tables  of  x  versus  y  are  input.  The  x-y  tables  are  end¬ 
point  coordinates  of  the  rays  extending  away  from  the  t 

fan.  The  first  table  gives  the  points  most  distant  from 
the  fan,  while  the  second  table  gives  the  points  nearest 
the  fan,  adjacent  to  region  2.  The  table  of  percentages 
gives  the  distance  along  the  rays  to  define  a  radial  panel 
edge.  A  simple  region  1  is  illustrated  in  Figure  54. 


1,  2  3  4 


Figure  54.  Subroutine  INLET — Paneling  Region  1. 

Input  for  this  region  would  be  two  tables  of  ten  x  and  y 
values  each,  ordered  in  the  indicated  manner.  The 
table  of  percentages  would  contain  three  values:  0,  0. 33, 
and  1.00. 

To  panel  the  lip  of  the  inlet  (region  2)  a  table  of  angbs 
and  two  tables  of  radius  r  versus  z  are  input.  The 
r-z  tables  define  two  sections  through  the  inlet.  A 
typical  section  is  shown  in  Figure  55. 


i 


Figure  55.  Subroutine  INLET — Paneling  Region  2. 

Each  of  the  sec  tit  ua  is  defined  on  a  given  radial  plane 
through  the  center  of  the  inlet.  Linear  interpolation 
between  these  two  sections  is  used  to  calculate 
coordinates  of  sections  on  radial  planes  specified  by 
the  input  angles. 

To  panel  region  5,  a  table  of  angles  and  two  tables  of 
z  values  are  input.  These  values  are  z  coordinates 
of  the  radial  panel  edges  extending  from  the  juncture 
between  regions  2  and  3  down  the  throat  to  the  lower 
surface  of  the  wing.  Like  region  2,  the  desired 
coordinates  are  interpolated  from  the  two  defining 
tables  and  transformed  to  the  reference  coordinate 
system. 

To  panel  region  4,  two  tables  of  r  and  one  table  of 
angles  are  input,  and  coordinates  on  the  bottom  sur¬ 
face  of  the  wing  are  Calculated  at  each  angle  with  a 
radius  obtained  by  interpolation  between  the  two  input 
tables  of  r. 
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s 


USAGE: 


SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 
RESTRICTIONS: 


Input  for  region  3  is  identical  to  that  for  region  2.  Two 
tables  of  r  versus  z  and  one  table  of  angles  are  required. 

In  addition  to  the  regions  described  above,  subroutine 
INLET  has  a  feature  that  is  quite  useful  when  inputs 
are  prepared.  After  the  wing  definition  has  been 
input,  subroutine  INLET  will  produce  x,  y,  and  z 
coordinates  in  the  reference  coordinate  system  and  r 
and  z  coordinates  in  the  fan  coordinate  system  of  any 
section  desired  through  the  wing.  These  coordinates 
may  be  plotted,  and  the  tables  of  x,  y,  and  r  that  are 
required  for  regions  1  through  5  can  be  obtained  from 
the  resulting  graphs.  » 

CALL  INLET 

Input  for  subroutine  INLET  is  described  in  detail  in 
Section  3. 1. 2. 

Output  consists  of  x,  y,  and  z  coordinates  of  the  re¬ 
gions  requested,  optionally  punched  on  cards. 


FITTER 

FOIL 

NORM2 

NORM3 

OBLIQ 

RCOSIN 

None 


None 


t 


118 


SUBJECT: 

PURPOSE: 


METHOD: 


FORTRAN  IV  Subroutine  LIFT 

To  produce  x,  y,  end  z  coordinates  of  s  lifting  system 
network 

The  lifting  network  is  divided  into  two  parts:  the  internal 
lifting  system  and  tbe  trailing  vortex  sheet,  as  shown 
in  Figure  56. 


INTER*.’!  LIFTING  NETWORK 


TRAILING  VORTEX  SHEET 


Figui 


Subroutine  LIFT —  Lifting  System  Geometry. 


Tbe  internal  system  is  defined  by  an  inboard  and  an  out¬ 
board  profile  and  stations  at  which  panel  edges  are  de¬ 
sired.  T!,e  trailing  vortex  sheet  is  defined  by  the  length 
and  direction  cosines  of  each  segment  extending  from  the 
trailing  edge  of  the  internal  network. 

The  x’s  in  the  figure  above  represent  boundary  points. 
Their  locations  are  calculated  with  respect  to  the  trailing 
edge  of  the  wing,  as  shown  in  Figure  57. 


Figure  57.  Subroutine  LIFT—  Flow  at  the  Trailing  Edge. 
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USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


Vector  Vj  bisect*  the  eagle  formed  fay  the  upper  and  lower 
surface s  of  the  wing  trailing  edge.  The  bouw'.kty  point 
will  lie  on  Vi  at  the  distance  back  from  the  trailing  edge 
specified  in  the  input. 

The  span  wise  locations  (y  coordinates)  of  the  boundary 
points  are  calculated  by  one  of  two  methods,  depending  on 
the  input.  If  y  coordinates  of  panel  edges  are  input,  the 
subroutine  interpolates  between  them,  setting  the  boundary 
point  at  their  average  value.  The  other  option  available 
is  to  input  the  y  coordinates  of  the  boundary  points 
themselves. 

CALL  LIFT 

Input  for  subroutine  LIFT  is  described  in  Section  3. 1. 2. 

Output  consists  of  x,  y,  and  z  coordinates  of  the  entire 
lifting  system  and  boundary  points,  optionally  punched  on 
cards. 


ACS 

FOIL 

NORM2 

NORM3 


None 


None 
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SUBJECT: 

FORTRAN  IV  Subroutine  LINER 

PURPOSE: 

Given  the  equation  of  a  straight  line  and  a  value  of  the 
independent  variable,  to  compute  the  value  of  the 
dependent  variable 

METHOD: 

Let  ejx  +  e-jy  +  63  =  0  represent  the  straight  line,  and 
let  x  be  the  independent  variable.  Subroutine  LINER 
expects  62  *-1.0  resulting  in  the  equations 

y  “  ®i*  +  ®s  (23) 

* 

•“d  (24) 

USAGE: 

CALL  LINER  (E,  X,  Y,  J) 

DIMENSION  E(3),  Y(4) 

Input:  E(l)  =  coefficient  of  x 

E<2)  =  -1.0 

E(3)  =  constant  term 


X  =  value  of  independent  variable  x 

Output:  Y(l)  -  function  value  of  x  * 

Y(2)  *  E(l),  if  E(2)  /  0;  1.0,  if  E(2)  =  0 
Y(3)  *  1.0,  if  E(2)  t  0;  0.0,  if  E(2)  =  0 
Y<4)  *  0.0 

J  *  0,  success 

=  l,  if  vertical  line  ^nd  x  =  E(3) 

*  -1,  if  vertical  line  and  x  ^  E(3) 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  J,  see  USAGE 

RESTRICTIONS:  E(2)  must  be  - 1 . 0 
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SUBJECT: 


FORTRAN  IV  Program  MAIN 


PURPOSE: 

METHOD: 

USAGE: 

SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 


To  retd  control  card*  and  to  call  the  appropriate 
subroutine 

Card  columns  1  through  10  are  read  by  the  program  as  a 
control  word.  This  word  is  compared  to  the  index  of 
allowable  words  by  function  DIRECT.  A  correct  control 
card  will  cause  loading  and  execution  of  the  desired 
routines.  An  incorrect  control  card  causes  a  comment  to 
be  printed.  In  either  case,  the  program  will  continue  to 
read  words  from  the  input  file  until  either  an  EXIT  control 
card  or  an  end- of- file  mark  is  read. 

Program  MAIN  is  never  referenced  in  a  CALL 
statement. 


AXISYM 

DATE 

DIRECT 

GRAPH 

INLET 

LIFT 

TUBE 

WING 

None 


RESTRICTIONS: 


None 


SUBJECT: 

FORTRAN  IV  Subroutine  NORM2 

PURPOSE: 

To  find  the  length  end  to  normalize  the  component*  of  a 
two-dimensional  vector 

METHOD: 

The  length  of  the  vector  is  found  as  the  square  root  of  the 
sum  of  the  squares  of  the  two  components.  The  compo¬ 
nents  are  then  normalized  by  dividing  them  by  the  length. 

USAGE: 

CALL  NORM 2  (X,  Y,  X2,  Y2,  D) 

Inputs: 

Y  |  =  x  and  y  components  of  the  vector 

X2  )  _  normalized  x  and  y  components  of  the 

Y2 )  vector 

D  =  length  of  the  vector 

SUBPROGRAMS 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

123 


SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


FORTRAN  IV  Subroutine  NORM3 

To  find  the  length  and  to  normalize  the  components  of  a 
three-dimensional  vector 

The  vector  length  is  found  as  the  square  root  of  the  sum 
of  the  squares  of  the  three  components.  The  components 
are  then  normalized  by  dividing  them  by  the  length. 

CALL  NORM3  (X,  Y,  Z,  X2,  Y2,  Z2,  D) 

Inputs:  XI 

Y  }  *  x,  y,  and  z  components  of  the  vector 


_  normalized  x,  y,  and  z  components  of  the 
vector 

-  length  of  the  vector 


Outputs:  X2 
Y2 
Z2 


D 


SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  None 


* 
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SUBJECT: 


FORTRAN  IV  Subroutine  OBLIQ 


PURPOSE:  To  find  the  coordinates  of  the  intersections  of  a  line  (LM) 

drawn  lengthwise  on  a  cylinder  that  penetrates  the  upper 
and  lower  surfaces  of  a  wing 

The  coordinates  of  points  A  and  B  shown  in  Figure  58  are 
found  by  subroutine  OBLIQ. 


Figure  58.  Subroutine  OBLIQ— Wing-Cylinder  Geometry. 


METHOD:  Refer  to  Figure  59.  The  cylinder  that  penetrates 

the  wing  is  defined  by  the  direction  cosines  of  its  axis 
and  the  coordinates  of  a  point  on  the  axis.  The  point  K  is 
found  from  the  length  of  the  radius  vector  and  its  direction 
cosines,  after  which  point  K+l  is  calculated. 

The  distance  d  from  point  C  to  point  K+l  is  calculated 
and  compared  to  a  given  tolerance.  If  d  is  greater  than  the 
tolerance,  point  K+l  becomes  point  K,  and  new  points  C 
and  K+l  are  calculated.  When  d  becomes  strictly  less 
than  the  given  tolerant  ),  the  point  on  the  lower  surface  is 
calculated  using  the  same  method,  after  which  control  is 
returned  to  the  calling  program. 


Figure  59.  Subroutine  OBUQ— Wing-Cylinder  Intersection. 


USAGE:  CALL  OBUQ  (XFOIL,  YFOIL,  ZFOIL,  LE,  N,  XYZO, 

ETAXYZ,  RXYZ,  R,  EPS,  XYZTIP) 

DIMENSION  XFOIL  (200,2),  YFOIL  (200,  2),  ZFOIL 

(200,2),  XYZO  (3),  ETAXYZ  (3),  RXYZ  (3), 

XYZTIP  (3,2) 

^nputS!  yfoil!  =  °f  x»  y*  and  z  coordinates  | 

ZFOIL  i  ”  del^nln* two  airfoil  sections  I 

LE  *  subscript  of  leading  edge  j 

N  =  subscript  of  trailing  edge  (number  of  j 

defining  points)  , 

XYZO  =  x,  y,  and  z  coordinates  of  a  point 

on  the  axis  of  the  cylinder  f 

ETAXYZ  =  direction  cosines  of  the  axis  of  the  \ 

cylinder  „ 

RXYZ  =  direction  cosines  of  the  radius  vector  ; 

R  =  length  of  the  radius  vector 

EPS  =  tolerance  against  which  to  test  d 
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Outputs:  XYZTIP(1, 1) 
XYZTIP<2, 1) 
XYZTIP(3, 1) 


x,  y,  and  z  coordinates  on 
upper  surface 


XYZTIP(1,2) 

XYZTIP(2,2) 

XYZTIP(3,2) 


!_x,  y,  and  z  coordinates  on 
~  lower  surface 


SUBPROGRAMS 

CALLED:  CURFIT 


ERROR  RETURNS:  If  the  iterative  technique  described  in  METHOD  does  not 
converge  in  SO  iterations,  the  calling  arguments  are 
listed  and  the  appropriate  XYZTIP  (upper  or  lower 
surface)  is  set  to  the  last  values  calculated.  Control  is 
returned  to  the  calling  program  directly  if  the  failure 
occurred  on  the  lower  surface;  otherwise,  OBLIQ  attempts 
to  find  the  lower  surface  intersection  before  relinquishing 
control. 


RESTRICTIONS: 


Variables  must  be  dimensioned  as  shown  under  USAGE. 


SUBJECT: 


FORTRAN  IV  Function  PINT 


PURPOSE:  To  find  the  intersections  within  a  specified  interval  of  two 

curves,  each  consisting  of  one  or  more  straight-line 
segments 

METHOD:  Each  of  the  curves  is  defined  by  an  ordered  set  of  points 

that  are  the  end  points  of  the  line  segments  composing 
the  curve. 

Let  S  and  T  represent  two  curves  of  m  and  n  segments. 
All  of  the  m  •  n  segment  pairs  are  examined,  and 
coordinates  of  intersections  within  the  specified  interval 
are  calculated  for  output  from  PINT. 

USAGE:  K  *  PINT  (S,  T,  A,  B,  X) 

DIMENSION  S(2m+1),  T(2n+1),  X(2k) 

Input:  S  =  array  for  first  curve: 

m*  xl*  yl»****xm»  ym 
T  =  array  for  second  curve: 

xn»  yn 

g  |  =  (a,b),  the  specified  interval  of  interest 

Output:  X  =  array  for  intersections: 

xl»  yv  x2»  y2*  ’  ’  *  *  xk*  yk 
K  =  number  of  intersections,  k 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  X  values  for  both  curves  must  be  strictly  monotonically 

increasing,  and  a  <  b. 
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SUBJECT} 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 


FORTRAN  IV  Function  POPO 

To  find  the  intersections  of  two  curves,  one  being  a 
polygonal  arc,  the  other  being  polynomial  of  degree  three 
or  less 

The  polygonal  arc  is  defined  by  a  set  of  m  points,  which 
axe  the  end  points  of  the  line  segments.  The  polynomial 
is  defined  by  its  coefficients  as  given  in  the  form 

f(x)  -  Cj  +  CgX  +CgX<!  +c4x3  (25) 

Let 

gt(x)  =  if  +  bty  +  Cj  (i  *  1, 2, . . . ,  m-1)  (26) 

represent  the  i4*1  line  segment,  and  let 

hj(x)  =  f(x)  -  gj(x)  (1  as  above).  (27) 

Subroutine  ROOTP3  is  called  to  find  the  real  roots,  if 
any,  of  h|(x).  Those  roots  within  the  interval  of  interest 
are  improved  by  subroutine  CROSS  and  stored  as  output 
to  the  calling  program. 

N  «  POPO  (C,  S,  A,  B,  X) 

DIMENSION  C(4),  S(2m+1),  X(2 n) 

Input:  C  =  array  of  polynomial  coefficients 

S  =  array  for  polygonal  arc : 

m»  xl*  yl . xm»  ym 

A  ) 

B  =  the  interval  of  Interest  (a,b] 

Output:  X  =  array  of  intersection  coordinates, 

*V  yv  x2,...,  xn,  yn 

N  2:  0,  number  of  intersections,  n 

=  i,  -  1  i  i  £  -7,  error  return  of  i  from 
ROOTP3 

=  -8,  error  return  of  1  from  CROSS 
=  i,  -9  £  i  2  -11,  error  return  of  i+8 
from  CROSS 


CROSS 

CUBIT2 

LINER 

PINT 

ROOTP3 
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ERROR  RETURNS:  N,  Me  USAGE 


RESTRICTIONS: 


X  values  for  the  polygonal  arc  must  be  strictly 
monotonic  ally  increasing,  and  a  <  b. 


9 
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SUBJECT:  FORTRAN  IV  Subroutine  RCOSIN 

PURPOSE:  To  calculate  the  direction  cocinee  of  a  radius  of  the  lift 

fan,  given  the  orientation  of  the  fan  coordinate  system 
and  the  angle  9  (see  Figure  60) 


Figure  60.  Subroutine  RCOSIN —  Lift- Fan  Orientation. 

METHOD:  The  fan  coordinate  system  is  related  to  the  reference 

coordinate  system  by  the  transformation  matrix: 


'aH  al2  a13* 

'X' 

’X* 

a21  a22  a23 

y 

s 

y 

.a31  a32  a33. 

z 

»  M 

z 

(28) 


fan 


The  angle  6  is  measured  in  the  fan  plane  as  shown  above. 
The  reference  point  for  9  =  0  is  the  line  formed  by  the 
intersection  between  the  fan  plane  and  a  plane  passing 
through  point  A,  parallel  to  the  x-z  plane.  This  line 
begins  at  point  A  and  extends  to  the  rear  of  the  fan. 
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The  direction  coeines  of  R,  the  radius  vector,  are 
calculated  from  the  formulae  below: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


‘V 

*11  *12 

Ry 

* 

*21  *22 

W 

*31  *32- 

(29) 


where  R„,  R„,  and  R„  are  the  direction  cosines, 
x’  y'  z 

CALL  RC06IN  (ALPHA,  THETA,  RXYZ) 

DIMENSION  ALPHA  (3,3),  RXYZ  (3) 

Input:  ALPHA  *  the  transformation  matrix 
THETA  *  6,  as  described  in  METHOD 

Output:  RXYZ  =  direction  cosines  of  the  radius  vector 


None 

None 

Theta  must  be  input  in  radians. 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 


FORTRAN  IV  Subroutine  ROOTP2 

To  find  the  roots  of  ax2  +  bx  +  c  *  0,  any  second-degree 
polynomial  with  real  coefficients 

After  checking  for  the  cases  when  a  =  0  and  when 
b2  -  4ac  <  0,  the  subroutine  finds  a  first  approximation 
to  the  root  of  larger  magnitude,  xlt  by 


_  -b  slgn(b)  jfi  -4ac 


2a 


and  then  obtains  the  root  of  smaller  magnitude,  x,, 

by 

x2  =  ax7 


(30) 


(31) 


A  better  value  for  Xj  can  generally  be  found  by  using 


x  *  ”x2  ”  a 


(32) 


and  subroutine  ROOTP2  alternately  uses  Equations  (31) 
and  (32)  until  two  successive  values  of  x  are  equal. 

CALL  ROOTP2  (C,  X,  I) 

DIMENSION  C(3),  X(2,2) 

lDPUt:  _  the  coefficients  of  the  quadratic  equation 

cjgjj  "  C(l)x2  +  C(2)x  +  C(3)  =0 

Output:  X(l,  1)  =  real  part  of  larger  root 

X(l,2)  =  imaginary  part  of  larger  root 
X(2, 1)  *  real  part  of  smaller  root 

imaginary  part  of  smaller  root 


X<2,2) 
I 


-  -1,  C(l)  =  C(2)  -  0 
=  0,  imaginary  parts  of  roots  are  zero 
=  1,  imaginary  parts  of  roots  are  not 
zero 

*  2,  iteration  to  find  real  roots  does  not 
converge 


None 


ERROR  RETURNS:  I,  see  USAGE 
RESTRICTIONS:  None 


SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Function  ROOTP3 

To  find  those  real  roots  of  a  cubic  within  a  specified 
interval,  if  any 

By  examining  the  function  value  of  the  cubic  at  the  end 
points  of  the  interval  and  at  any  extrema  that  lie  within 
the  interval,  function  ROOTP3  either  encounters  a 
root  or  determines  whether  any  real  roots  are  in  the 
interval.  Generally,  an  iterative  scheme  is  employed  to 
find  a  real  root  in  the  interval.  After  one  root,  xj,  has 
been  found,  the  quadratic  resulting  from  dividing  the 
cubic  by  (x-xi)  is  solved  by  subroutine  ROOTP2.  The 
roots  of  the  resultant  quadratic,  if  real  and  in  the 
interval,  are  substituted  into  the  cubic  and  improved  by 
subroutine  CROSS. 

N  =  ROOTP3  (A,  B,  C,  X) 

DIMENSION  C(4),  X(3) 

Input:  g  |  *  the  interval  of  interest  |a,  b] 

C(D) 

C(2)  (  coefficients  of  the  cubic  equation 
C(3)  (  y  =  C(l)  +  C(2)x  +  0(31x2  +  C(4)x3 
C(4)  / 

Output:  X  =  array  of  x  values  of  the  real  roots  in  the 
interval 

N  =  the  number  of  real  roots  in  the  interval,  n 
=  -1,  ROOTP2  returned  -1  searching  for  cubic 
extrema 

=  -2,  ROOTP2  returned  2  searching  for  cubic 
extrema 

=  -3,  ROOTP2  returned  -1  solving  for 
resulting  quadratic 

=  -4,  ROOTP2  returned  2  solving  for  resulting 
quadratic 

-  -5,  ROOTP2  returned  -1  solving  quadratic 
when  C(4)  *  0 

-  -6,  ROOTP2  returned  2  solving  quadratic 
when  C(4)  =  0 

=  -7,  CROSS  unable  to  find  real  root  known  to 
be  in  the  interval 


SUBPROGRAMS 
CALLED:  CROSS 

CUBIT2 
LINER 
ROOTP2 

ERROR  RETURNS:  N,  see  USAGE 
RESTRICTIONS:  a  £  b 


f 

f 

l 

I 

j  SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  ROTRAN 

To  rotate  and  translate  a  given  set  of  x  and  y  coordinates 
from  one  coordinate  system  to  another 

The  given  input  coordinates  are  rotated  about  the  origin 
of  their  coordinate  system  a  given  number  of  radians. 

The  resulting  coordinates  are  then  translated. 

CALL  ROTRAN  (XIN,  YIN,  N,  SIN,  COS,  XO,  YO,  XOUT, 
YOUT) 


DIMENSION  XIN(n),  YIN(n),  XOUT(n),  YOUT(n)  (N  £  n) 

i 

Input:  XIN  )  _  x  and  y  coordinates  to  be 
YIN  j  transformed 

N  -the  number  of  points,  n 

|  =  the  sine  and  cosine  of  the  rotation  angle 

XO  J  _  coordinates  of  the  origin  of  the  first 
YO  j  system  with  respect  to  the  second 


Output: 

XOUT  i 

_  x  and  y  coordinates  in  the  second  , 

SUBPROGRAMS 

CALLED: 

None 

YOUT! 

”  system  ^ 

! 

ERROR  RETURNS: 

None 

! 

i 

RESTRICTIONS: 

None 

3 

! 

* 
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SUBJECT} 

PURPOSE: 


» 


FORTRAN  IV  Subroutine  S CONIC 

To  find  the  arc  length,  s,  of  a  conic  over  a  specified 
interval  [a,  b] 

Since  conic  efflux  tube  trajectories  are  not  considered, 
subroutine  SCONIC  is  not  used.  It  is  included  as  a  dummy 
subroutine. 
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SUBJECT: 


FORTRAN  IV  Subroutine  SCUBIC 


PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


To  find  the  arc  length,  s,  of  a  cubic  over  a  specified 
interval  (a,  b] 

Let  y  =  ci  +  C£X  +  cgx2  +  C4X3  be  the  equation  of  the 
cubic.  The  desired  arc  length  is 


•  -  /b  [1  +(&)2]  *  <33> 

ft 

Subroutine  SCUBIC  evaluates  this  integral  numerically 
using  subroutine  SIMPRC. 

CALL  SCUBIC  (C,  A,  B,  EPS,  S,  K) 

DIMENSION  C(4) 

Input:  C(l) 

C(2)  coefficients  of  the  cubic,  c1 ,  c.,  c„, 
C(3)  ~  and  c. 

C(4) 

A  )  the  interval  [a,  b)  for  which  the  arc 
B  (  length  is  desired 

tolerance  required  by  SIMPRC  to 
EPS  *  terminate  iteration  for  evaluating  the 
integral 

Output:  S  =  the  arc  length,  s 
K  *  1,  success 

=  2,  SIMPRC  failed  to  converge  while 
evaluating  the  integral 


SIMPRC 

VALCUB  * 

K,  see  USAGE 

None 
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SUBJECT: 


FORTRAN  IV  Subroutine  SELECT 


« 


PURPOSE:  To  compute  the  z  coordinates  of  the  line  segment  used  by 

function  POPO 

METHOD:  Subroutine  SELECT  calculates  a  maximum  value  of  z  or 

Zjbsx,  and  a  minimum  value  of  z  or  Zmin»  01>e  °f two  ways, 
depending  on  the  amount  of  rotation  the  coordinate  system 
is  to  undergo.  For  rotations  other  than  in  the  interval  (225* , 
315*],  the  method  illustrated  in  Figure  61  is  used. 


Figure  61.  Subroutine  SELECT— Airfoil  Coordinate  Calculation. 

Let  points  1  through  4  be  the  four  points  used  as  input 
for  BQUAD2.  Subroutine  SELECT  chooses  z^^  to  be 
the  maximum  z  coordinate  of  the  four  points  plus  the 
distance  between  points  1  and  4,  while  is  the 
minimum  z  minus  the  distance. 

For  angles  of  rotation  in  the  interval  (225° ,  315°  ] , 
is  calculated  at  the  z  coordinate  of  point  2  plus  1/15  the 
distance  between  points  1  and  4,  while  z  is  the  z  coordinate 
of  point  3  minus  1/15  the  minimum  distance. 

USAGE:  CALL  SELECT  (ZC,  ZMX,  ZMN,  D,  SIN,  K) 

DIMENSION  ZC(n)  (n  St  K) 

Input:  ZC  =  a  vector  of  n  values  for  z 

D  =  distance  between  points  1  and  4,  above 
SIN  -  sine  of  the  angle  of  rotation,  0 
K  *  subscript  in  ZC  vector  of  z  value 
immediately  prior  to  the  interval  of 
interest 


Output:  ZMXj  jzmax) 

zmn  rumj 


as  described  in  METHOD 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


None 

None 

None 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  SIMPRC 

To  evaluate  the  integral  of  any  function,  y  *  f(x),  over  the 
interval  [a,  b)  using  Simpson’s  Rule 

Let  the  integral  be  F  f  (x)  dx. 

The  subroutine  evaluates  the  integral  with  the  formula 

F  “  f  -  J  (y0  +  4Fi  +  2y2  +  4y3  +- ‘  ‘  +2y2n-2 

ft 

*  4y2n-l +  y2a)  <M> 

where  2n  =  number  of  intervals 
h  =  (b-a)/2n 
=  f(a  +  ih) 

The  subroutine  first  finds  an  Fj  and  an  F«  setting, 

2n  =4  and  8,  respectively.  These  two  values  for  the 
integral  are  then  compared  with  a  given  tolerance,  e, 
according  to  Equation  (35)  or  (36). 

F  -  F 

max  (IF*!,  |F1_1|)<C  (35> 


or 

l*i  -  Fi-il  <  l«l 


(36) 


Equation  (35)  is  used  when  c<0;  otherwise,  Equation  (36) 
is  used. 

If  neither  formula  is  satisfied,  the  number  of  intervals  is 
doubled  and  a  new  Fj  is  found.  When  the  convergence 
test  is  satisfied,  the  last  Fj  calculated,  Fn,  is  adjusted 
by  the  formula 

F  =  F  +  1/15  (F  -  F_  . )  (37) 

n  u  n-ir 

The  function  to  be  integrated,  f(x),  is  computed  by  sub¬ 
routine  VALCUB,  and  is  given  below: 


f(x)  = 


1 1/2 


1  +  (c0  + 


2c3x  + 


3c4x4 


(38) 
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USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

NOTE: 


where  c2,  03,  and  C4  are  the  cubic  coefficient*  in  the 
e<*iation  y  *  cx  +  c&  +  cjx2  +  C4X8.  Thia  cubic  defines 
the  trajectory  of  the  Jet  efflux  tube. 

CALL  SDdPRC  {A,  B,  C,  VALCUB,  E,  F,  J) 
DIMENSION  C(4) 

Inputa*  g  |  =  the  limits  of  integration  [a,  bj 


C(l)\ 

C(2)  _  the  coefficients  Cj  through  C4  of  the 

C(3)  cubic  defining  the  efflux  tube  trajectory 
C<4)J 


VALCUB  *  the  name  of  the  subroutine  that 
evaluates  the  integrand 

E  =  the  desired  tolerance,  e 

Outputs:  F  *  the  value  of  the  integral 

J  =1,  success 

=  2,  iteration  does  not  converge 
-  -2,  error  return  from  VALCUB  =-J 

VALCUB 
J,  see  USAGE 

The  integrand  must  be  finite  within  the  interval  (a,b|. 

An  EXTERNAL  card  containing  the  name  VALCUB  must 
appear  in  the  calling  routine. 


♦ 
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SUBJECT: 

PURPOSE: 


k 


FORTRAN  IV  Function  SQUAD 

To  compute  the  arc  length,  s,  of  a  quadratic 


Because  quadratic  efflux  tube  trajectories  are  not  considered, 
function  SQUAD  is  not  used.  It  is  included  as  a  dummy 
subroutine. 
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SUBJECT: 


FORTRAN  IV  Function  TRACON 


PURPOSE: 


To  transform  coefficients  of  an  explicit  conic  to  those  of 
the  corresponding  implicit  conic,  or  vice  versa 


Because  conic  efflux  tube  trajectories  are  not  considered, 
function  TRACON  is  not  used.  It  is  included  as  a  dummy 
subroutine. 


SUBJECT: 


FORTRAN  IV  Subroutine  TRNSLT 


PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 


To  translate  and  rotate  a  set  of  x  and  y  coordinates  from 
a  given  coordinate  system  to  a  second  coordinate  system 

After  translating  the  given  point*  to  the  second  coordinate 
system,  the  subroutine  rotates  them  through  a  given 
angle. 

CALL  TRNSLT  (XIN,  YIN,  N,  XO,  YO,  SIN,  COS,  XOUT, 
YOUT) 

DIMENSION  XIN(u),  YIN(n),  XOUT(n),  YOUT(n),  (N  £  n) 

Input:  XIN  L  x  and  y  coordinates  to  be 

YIN)  transformed 

N  *  the  number  of  points,  n 

XO )  _  coordinates  of  the  origin  of  the  first 
YO)  system  with  respect  to  the  second 

SIN  |  _  the  sine  and  cosine  of  the  aigle  of 
COS)-  rotation 

Output:  XOUT )  x  and  y  coordinates  of  the  second 
YOUT )  ~  system 


None 

None 


RESTRICTIONS: 


None 


SUBJECT 


FORTRAN  IV  Subroutine  TUBE 


PURPOSE :  To  calculate  the  x,  y,  end  z  coordinates  of  a  jet  efflux  tube 

METHOD:  Refer  to  Figure  62. 


Figure  62.  Subroutine  TUBE— Jet  Efflux  Tube  Geometry. 


Tbe  trajectory  of  the  efflux  tube  is  found  from  the  equation 


i 

D 


where 


D  =  exit  diameter  of  tbe  fan 
0  *  deflection  angle 
VK  «  free- stream  velocity 
Vj  =  jet  exit  velocity 


(39) 


The  ortein  of  the  coordinate  system  is  the  point  at 

which  toe  fan  axis  intersects  a  plane  normal  to  it,  at  tbe 
average  z  coordinate  of  the  points  input  as  tube-wing 
intersections. 


The  coordinates  of  the  points  that  define  the  efflux  tube  are 
calculated  thus.  The  panel  edges  oblique  to  the  direction 
of  the  trajectory  are  defined  by  a  series  of  planes  cutting 
the  efflux  tube.  The  first  plane  is  parallel  to  the  lower 
surface  of  the  wing,  the  ntb  plane  is  normal  to  the  efflux 
tube  trajectory,  and  the  intermediate  planes  vary  linearly 
between  these  two.  All  planes  downstream  from  the  n^1 
plane  are  normal  to  the  trajectory. 

In  general,  the  lower  surface  of  the  wing  will  not  be  a 
plane,  with  the  result  that  all  panel-defining  "planes"  up¬ 
stream  from  the  ntb  plane  are  also  nonplanar. 

The  panel  edges  parallel  to  the  trajectory  begin  at  the 
points  input  as  the  intersection  between  the  wing  and  the 
tube,  as  shown  in  Figure  63. 


Figure  63.  Subroutine  TUBE— Tube  Paneling. 


USAGE:  CALL  TUBE 

Input  for  subroutine  TUBE  is  described  in  Section  3. 1.2. 

Output  consists  of  x,  y,  and  z  coordinates  of  the  efflux 
tube,  optionally  punched  on  cards. 
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SUBPROGRAMS 

CALLED: 

ACS 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 
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SUBJECT: 

PURPOSE: 


METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


FORTRAN  IV  Subroutine  VALCUB 
To  evaluate  the  function 

f(x)  =  [l  +  (c2  +  2CgX  +  3c4x2)2]1/2  (40) 

for  a  given  value  of  x 

Evaluation  of  the  above  equation 

CALL  VALCUB  (X,  U,  V,  W,  Y,  K) 

DIMENSION  U(3) 

Inputs:  U(l) ) 

U(2)  j  =  coefficients  c„,  c„,  and  c. 

U(3) )  ^34 

X  =  the  value  of  the  independent  variable  x 
Output:  Y  =  the  function  value  at  x  =  X 

K  =  1 

V  and  W  are  not  used 


None 

None 

None 
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SUBJECT? 


FORTRAN  IV  Subroutine  WING 


PURPOSE: 

METHOD: 


To  calculate  the  x,  y,  and  a  coordinates  of  a  wing 

The  wing  is  defined  by  two  airfoil  sections,  inboard  and 
outboard.  Each  section  is  input  as  a  table  of  x/c  versus 
x/c  values,  as  shown  in  Figure  64. 


z/c 


Figure  64.  Subroutine  WING —  Defining  Airfoil  Section. 

The  position  of  these  sections  in  the  reference  coordinate 
system  is  input,  and  the  two  section  definitions  are 
transformed  to  that  system,  as  shown  in  Figure  65. 


Figure  65.  Subroutine  WING— Wing  Geometry. 

The  spanwise  panel  edge  coordinates  are  calculated  by 
one  of  two  methods:  either  the  defining  x/c  and  z/c 
values  are  used,  or  new  x/c  values  are  input,  with  the 
corresponding  z/c  values  calculated  by  subroutine 
CURFIT.  The  stream  wise  panel  edge  coordinates  are 
simply  input  y  values.  The  intersections  of  the  spanwise 
and  streamwise  lines  define  the  corners  of  the  panels,  as 
shown  in  Figure  66. 


Figure  66.  Subroutine  WING—  Wing  Paneling. 
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USAGE 


CALL  WING 


Input  for  subroutine  WING  is  described  in  Section  3. 1. 2. 
Output  consists  of  x,  y,  and  c  coordinates  of  panel  corners. 

SUBPROGRAMS 
CALLED:  CURFIT 

FOIL 
XCN2 

ERROR  RETURNS:  None 


RESTRICTIONS 


None 


SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


FORTRAN  IV  Subroutine  XCN2 

To  exchange  x  and  y  coordinates  of  a  point  with  those 
of  a  second  point 

The  x  coordinate  of  point  1  is  stored  temporarily  in  a 
dummy  location.  The  x  coordinate  of  point  2  is  placed 
in  the  location  for  the  x  coordinate  of  point  1,  and  the 
dummy  (x.  coordinate  of  point  1)  is  placed  in  the  location 
for  the  x  coordinate  of  point  2. 

The  process  is  repeated  for  the  y  coordinates  of  the  two 
points. 

CALL  XCN2  (XI,  Yl,  X2,  Y2) 

Input:  yjj  =  coordinates  of  point  1 

^  |  =  coordinates  of  point  2 
Output:  XI  |  _  0f  point  2 

Yg  j=  coordinates  of  point  1 

None 

None 

None 


« 
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B.  Potential-flow  program  subroutine  descriptions.  —The  subroutinee  listed 
alphabetically  below  are  discussed  in  this  section. 

Subroutine  Index 


Subroutine 

Page 

Subroutine 

Page 

AERO 

154 

PLOT 

232 

AEROSL 

159 

QVGEO 

233 

CONSUR 

162. 

READBP 

237 

CONTRL 

170 

READTP 

238 

DATA 

172 

RHS 

239 

DATE 

173 

SBP 

241 

ENDSL 

174 

SEARCH 

243 

FAIL 

176 

SFLOW 

248 

FLOW 

179 

SFLOW1 

256 

FORCES 

183 

SNF 

262 

GEOM 

208 

SORDQ 

264 

INTURP 

210 

SOREQ 

274 

MAIN 

211 

SPGEO 

281 

MATDAT 

216 

STREAM 

284 

MATRIX 

217 

UFLOW 

289 

MHVGEO 

221 

UFLOW1 

295 

OFFPTS 

225 

VORDQ 

301 

PANEL 

227 

VOREQ 

305 

PARTIN 

231 

WRTETP 

309 

SUBJECT: 

FORTRAN  IV  Subroutine  AERO 

PURPOSE: 

To  calculate  the  normal  velocity  matrices  |VN|j]  and 
pucj  and  to  store  them  in  a  data  file  1  1 

METHOD 

The  boundary  condition  of  parallel  flow  to  the  model's 
surface  at  each  boundary,  point  is  used  to  establish  a 
matrix  equation  for  the  unknown  singularity  strengths: 

Kl  M  -  M  <“> 

where  VN..  *  the  normal  component  of  velocity  at  the 
lJ  i^  boundary  point  due  to  the  J“  unit 
strength  singularity 

o..  «  the  strength  of  the  singularity  that 
satisfies  the  k*b  solution 

B..  *  the  required  normal  component  of  velocity 
**  at  the  Ith  boundary  point  for  the  solu¬ 

tion.  It  is  the  sum  of  the  free-stream 
normal  velocity  component  and  the 
specified  normal  velocity. 

The  matrices  [VNjj]  and  (Btkl  are  stored  in  a  data  file  for 
use  when  the  unknown  singularity  strengths  are  found. 
Because  of  the  limited  memory  size  (core)  of  the  com¬ 
puter,  all  matrices  used  in  this  program  are  partitioned 
and  stored  in  data  files  in  partition  form.  The  routines 
READTP  and  WRTETP  transfer  the  matrix  partitions 
between  core  and  the  data  files. 


Before  calculating  the  matrices,  subroutine  AERO  reads 
the  desired  solutions  from  the  input  data  file.  Each  solu¬ 
tion  is  either  an  angle  of  attack  (a) /angle  of  yaw  (4>) 
specification  or  a  zero  free-stream  velocity  specification. 
If  the  a/l>  angles  are  specified,  the  free-stream  velocity 
components  for  the  k?h  solution  are  given  by 


^  -  008  “k  CM  *k 
V  =  -  cos  ak  sin  *k 


»Zk  =  8inak 


(42) 


(Note  that  the  free-stream  velocity  is  equal  to  unity. ) 


If  the  zero  free-stream  velocity  condition  is  specified, 
the  components  are 


The  free -stream  velocity  components  are  used  by  subrou¬ 
tine  RH8  to  calculate  partitions  of  the  [B^]  matrix. 

The  matrix  fVNijl,  a  function  of  the  velocity  component 
matrices  and  the  unit  normal  vector  components,  is 
given  by 


M*H  k)*H  K.)+HK 


where  VX. 


velocity  components  at  the  i^ 

=  boundary  point  due  to  the  jth  unit 
strength  singularity 


“*1 

nyi 

nZj 


unit  normal  vector  components  at 
the  ith  boundary  point 


The  velocity  component  matrices  are  computed  by 
subroutine  SFLOW  if  the  flow  is  symmetrical  or  by 
subroutine  UFLOW  if  the  flow  is  unsymmetrieal.  The 
unit  normal  vector  components  are  obtained  from  the 
boundary  point  quantities  data  file. 

The  partitions  of  the  [VNy]  and  [BuJ  matrices  are 
stored  in  a  data  file  in  the  order  or  the  example  illustrated 
in  Figure  67. 
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USAGE: 


1 

2 

3 

4 

6 

7 

8 

9 

11 

12 

13 

14 

16 

17 

18 

18. 

VNi}  B* 

Storage  Order  of  Partition*  la  Data  File 


» 


Figure  67.  Subroutine  AERO — Normal  Velocity  Matrices. 

Subroutine  AERO's  last  function  is  to  call  subroutine 
MATDAT,  which  stores  the  matrix  operating  instructions 
in  a  data  file.  The  Boeing-developed  matrix  routines  use 
these  Instructions  to  obtain  the  singularity  strengths  and 
the  resultant-induced  velocity  components. 

For  temporary  storage,  subroutine  AERO  uses  the 
labeled  COMMON  block  KOM3  to  store  the  matrix  parti¬ 
tions.  After  a  partition  of  the  iVNyl  or  IBjkl  matrix  has 
been  calculated,  it  is  immediately  transferred  from  KOM3 
to  a  data  file.  The  unit  normal  vector  components  for  a 
single  partition  are  stored  in  the  boundary-point  quantities 
array,  BP,  which  appears  in  the  labeled  COMMON  block 
KOM2. 

COMMON  (See  program  MAIN  for  blank  COMMON 
description.) 

CALL  AERO 


TITLE 

=  any  desired  title 

COM(l) 1 
COM(2) ) 

=  date  of  run 

• 

ICOM(l) 

=  1,  symmetric  flow 
=  3,  unsymmetric  flow 

ICOM(2) 

=  maximum  matrix  partition  size 

« 

ICOM(9) 

=  matrix  operating  instruction  data 
file  indicator 

NT1 

=  data  file  number  of  the  normal 
velocity  matrices  [VNyJ  and  [Bjfc] 
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NT  SIN  -  input  data  file  number 

NTSOUT  =  output  data  file  number 

NT7  *  data  file  number  of  the  matrix 
operating  instructions 

NTS  -  data  file  number  of  the  boundary- 
point  quantities 

NT  10  -  data  file  number  of  the  singularity¬ 

defining  quantities 

NTH  =  data  file  number  of  the  velocity 
component  matrix  [VXij] 

NT  12  =  data  file  number  of  the  velocity 

component  matrix  [VYjj] 

NT  13  =  data  file  number  of  the  velocity 

component  matrix  fVZy] 

NPR  *  number  of  row  partitions  in  the 
velocity  component  matrices 

NPC  =  number  of  column  partitions  in 
the  velocity  component  matrices 

Output:  ICOM(3)  =  force  and  moment  option  code 

ICOM(4)  *  plot  option  code 

ICOM(7)  =  number  of  lift  fans  in  the  model 

ICOM(8)  =  number  of  streamlines  desired 

NRHS  =  number  of  simultaneous  solutions 
desired 

ALPHA  =  array  of  angles  of  attack, 

PSI  =  array  of  angle  of  yaw, 

FSVX  )  arrays  of  free-stream  velocity 
FSVY  [  =  components.  IVm  ,  V  ,  V.  \ 

FSVZ  )  '  xk  yk  zk/ 
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SUBPROGRAMS 
CALLED:  SFLOW 

UFLOW 
RHS 

RJEADTP 

WRTETP 

MATDAT 


ERROR  RETURNS:  None 


RESTRICTIONS:  A  maximum  of  five  eimultaneoua  solutions  may  be 

speotfied. 
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SUBJECT: 


FORTRAN  IV  Subroutine  AEROSL 


# 


* 


PURPOSE: 

METHOD: 


To  calculate  the  flow  properties  along  a  streamline 

This  routine  calls  subroutine  SFLOW1  or  UFLOW1, 
depending  on  whether  the  flow  is  symmetric  or  unsym- 
metric,  to  calculate,  at  selected  points,  the  velocity 
derivative  normal  to  the  streamline.  The  resultant 
velocity  components  used  to  determine  the  velocity 
derivatives  are  the  sum  of  the  singularity-induced  velocity 
components  and  the  free -stream  velocity  components.  The 
components  at  the  l*b  streamline  point  for  the  kth  solution 
are  given  by 


V.  ■  u.  +  V 
xboj  i  «xk 

Vybo1  "  vi +  v*°yk 

'zbOj  ~  VV-zk 


(45), 


The  velocity  component  normal  to  the  streamline  is  given 
by 


Vbo.  *  bi  bXj  VxbOj  +  byt  Vytx>i  +  bz{  Vzboi 


unit  normal  vector  components  at  the 
ith  streamline  point 


Finally,  the  velocity  derivative  is  determined  from  finite 
difference  by 


where  e  =  the  specified  fraction  of  the  longest 
source-panel  diagonal 

tmax  =  the  longest  source-panel  diagonal 
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At  every  streamline  point,  the  accumulative  length  of 

the  streamline,  the  velocity  magnitude  at  the  boundary 

point  of  the  source  panel  containing  the  streamline  point,  i 

and  the  velocity  derivative  are  punched  on  cards  1 

(3E10. 3  format)  as  input  to  the  boundary-layer  program.  i 

i 

I 

i 

USAGE:  COMMON  (See  program  MAIN  for  blank  COMMON  j 

description. )  * 

COMMON  /SL3/SS  (50),  XS  (50),  YS  (50),  ZS  (50),  BX  (50), 

BY  (50),  BZ  (50),  XBO  (50),  YBO  (50),  ZBO  (50),  VF  (50) 

CALL  AEROSL  (KSL,  KSOL,  MSL) 

'  1 

Input:  ICOM(l)  =  1,  symmetric  flow  j 

=  3,  unsymmetrtc  flow  ’ 

♦ 

{ 

NT1  =  data  file  number  of  the  singularity  ! 

strengths  1 

i 

NTSOUT  =  output  data  file  number  i 

NT  10  =  data  file  number  of  the  singularity-  ; 

defining  quantities 

NT14  =  punched  card  output  data  file  1 

number  \ 


SS  =  array  of  the  accumulative  length 

of  the  streamline  at  each  of  the 
streamline  points 


BX  ) 
BY 

BZ  J 

_  arrays  of  the  streamline  unit 
normal  vector  components 

XBO  ] 
YBO 
ZBO  ] 

1  arrays  of  the  coordinates  of  the 

~  streamline  points  in  the  reference 

1  coordinate  system 

* 

VF 

=  array  of  the  velocity  magnitudes  at 
the  boundary  points  of  the  source 
panels  containing  the  streamline 
points 

♦ 

KSL 

=  streamline  number 

KSOL 

=  solution  number 

MSL 

=  number  of  streamline  points 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 


SFLOW1 

UFLOW1 

None 


RESTRICTIONS: 


None 


SUBJECT: 


FORTRAN  IV  Subroutine  CONSUR 


PURPOSE: 

METHOD: 


To  calculate  the  flow  properties  on  the  lift-fan  barrier 

A  lift  fan  consists  of  a  barrier  (fan  surface),  centerbody, 
exit  plane  (flow  exiting  from  the  lower  surface) ,  and 
centerbody  base,  as  shown  in  Figure  68. 


* 


Figure  68.  Subroutine  CONSUR —  Lift- Fan  Assembly. 


The  potential-flow  model  can  have  a  maximum  of  ten  lift 
fans.  Depending  on  its  location,  either  half  or  the  com¬ 
plete  fan  is  defined.  Only  half  of  the  fan  is  required  when 
the  axis  of  the  fan  is  in  the  plane  of  symmetry  (x  -  z). 

For  unsymmetric  flow,  the  complete  fan  must  be  defined. 

This  routine  calculates  the  velocities  and  pressure 
coefficients  at  the  boundary  points  on  the  barrier,  which 
is  composed  of  quadrilateral  vortex  and  multihorseshoe 
vortex  singularities.  Arrangement  of  the  barrier  singu¬ 
larities  is  shown  in  Figure  69.  As  viewed  from 
above,  the  barrier  is  subdivided  into  N  columns 
0  *  1,  ....  N)  with  each  column  containing  M  singular¬ 
ities  (i  =  1,  .  .  .  ,  M). 
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CENTERBOOY  WALL' 


INLET  1ALL 


Figure  69.  Subroutine  CONSUR—  Barrier  Singularities. 

The  radial  vortex  segments  of  the  barrier  induce  a 
velocity  component  in  the  circumferential  direction. 


i  =  1 

j  =  l 


M 

N+l 


where  A<r 

i.j 


ai  j "  °i  j-1’  net  singularity  strengths 


,xi.r\i 


■i)2  +  <yi,j‘yi,)-i)2 + 


the  distance  between  boundary  points 


This  velocity  is  computed  at  the  midpoint  of  the  radial  line 
segment.  By  averaging  the  velocities  at  the  four  neighbor¬ 
ing  points,  the  value  at  the  midpoint  of  the  circumferential 
line  segments  is  found. 


+  V„  + 

i.j  i+l,j+l 


i  =  1,  .  .  .  ,  M-l 
j  =  1,  .  .  .  ,  N 


(48) 


(49) 
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The  circumferential  vortex  segments  induce  a  velocity 
component  in  the  radial  direction. 


4\ 


i  =  1 . M-l 

J  =  1 . N 


(50) 


where  Acr^ ^  *  Vi ,j  "  *i,j 

IC1  i  =  J{x i+i,j"x!J)2  +  ^i+i,ryi,3)2  +  (*i+i,J"*i.J) 

The  resultant  velocities  and  pressure  coefficients  on  the 
barrier  are  calculated  at  a  finite  number  of  points  called 
barrier  boundary  points,  whose  coordinates  in  the  barrier 
coordinate  system  are  evaluated  by  specifying  (M  +  1)  r's 
and  (N  +  1)  0's.  1 

r 

{b,  j  *  -IT  I0089)  +  008Vi] 

\j  *  nr  (■‘"•j +  *toVi  ] 


,  i  «  1 . M-l  (51) 

J  «  1 . N 


* 


B 


To  transform  these  coordinates  to  the  reference 
coordinate  system,  it  is  necessary  to  calculate  the 
direction  cosines  of  the  barrier  coordinate  system. 


*11 

a12 

a13 

a21 

a22 

a23 

a31 

a32 

a33 

where  a31 

=  nxb’ 

a32  *  nyb’  a33  *  nzb 

• 

‘11 


T2 


zb 


-n 


+  n 


12 


0,  a 


13 


zb 


J. 


A 


r-r 


xb  +Dzb 


a32a13  ~  a33a12  -  a33all  ~  a31a13 

a21  A  ’  22  A 


a3ial2  "  a32all 
23  "  A 
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< 


where 

»*>} 

nyb  | 

nzb  ) 

^a32a13 

_  unit  normal  vector  components  of  the 


(a31*12  "  a32all) 

The  transformed  barrier  boundary  points  are  given  by 
*b  *  V  *  all{b,  ,  +  ‘21  "b,  ,1 
yb,  ,  =  ybc  +  a12  *b.  +  a22  V  A.  i-1 . M-l 

1,3  1,3  1,3  j  j-1 . N 

V  -Ibo  +  a13«b||  +  a23,»bkll  (52> 

mJ  liJ  I 


where  V  , 

(  s  coordinates  of  the  center  of  the  lift  fan 
ybc  /  in  the  reference  coordinate  system 


The  resultant-induced  velocities  at  the  barrier  boundary 
points  are  found  by  interpolation. 

vx  *2  +Vx  *1  \ 

V  -  xi,j  Vi,J  Ui 

xpU  lx  - 12 

U  M 

Vy  *8  +V  Ix 

v  .  yi,J  1,1  yt+MAl  V  i»l . M-l 


*1  +  *2 

i.J  i,j 

V_  *2  +  Vz  41 

\j  Zi,J  Vl,j 

*1,  i  +  l2.  . 

U  i.j 


’  J-1.  .  .  N 


I 


where 


\i  ■  +  vx *  V 

\i  ‘  + W 

The  resultant  velocity  components  are  composed  of  two 
contributions:  the  resultant-induced  velocity  components 
and  the  velocity  components  due  to  one-half  the  velocity 
of  discontinuity,  which  are  a  function  of  the  circumferen¬ 
tial  and  radial  velocity  components.  The  components  due 
to  the  latter  contribution  are  given  by 

X.j  *  ‘i2Xj  *  r \-\: ::::  n'1 

1  (54) 

H, = 

where 

x,  r  "• 5  K  i  ■ oo*  ■  x,  j  ■  ’in 

Vd2  .0.5  (vr  .co.Xrlii\ 

‘“l.l  \  ri.J  2  cai,i  2  / 

Finally,  the  resultant  velocity  components  are 

v  =  V  +  V 
xbi.  j  xpi,  J  xdi,J 

X, =  X, +  X,  (55> 

v  =  v  +  v 

zbi.i  *pi.j  'di,i 


106 


The  resultant;  velocities  and  pressure  coefficients  at  the 
barrier  boundary  points  are  given  by 


In  order  to  calculate  the  forces  and  moments  on  the  lift 
fan,  barrier  areas  are  calculated. 


CONSUR's  final  function  is  to  create  a  data  file  containing 
the  barrier  boundary-point  coordinates,  resultant  velocity 
components,  pressure  coefficients,  and  barrier  areas. 
This  data  file  is  used  by  subroutine  FORCES  to  compute 
the  force  and  moment  coefficients  on  the  lift  fans  of  the 
model. 

COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

COMMON  /JOM2/NETCS(50),  TYPE(IO),  CPC(IO), 
CPE(IO),  NR(10),  NTHETA(IO),  XBC(IO),  YBC(IO), 
ZBC(IO),  ANBX(IO),  ANBY(IO),  ANBZ(IO),  ANEX(IO), 
ANEY(IO),  ANEZ(IO),  H(10),  DC(10),  SEQNET(7, 10), 
R(20, 10),  THETA(50, 10) 


CALL  CONSIJR 


Input:  ICOM(3) 
ICOM(7) 
NTSOUT 
NT  16 

NT  17 


NETCS 


XBC  ) 
YBC 
ZBC  ) 

ANBX  ) 
ANBY 
ANBZ  ) 

SEQNET 


TYPE 


NR 


-  force  and  moment  option  oode 

=  number  of  lift  fane  in  the  model 

=  output  data  file  number 

=  data  file  number  of  the  quantities 
required  to  compute  the  force  and 
moment  coefficients 

=  data  file  number  of  the  quantities 
required  to  compute  the  velocities 
and  pressure  coefficients  on  the 
lift-fan  barriers 

-  array  of  values  specifying  the  num¬ 
ber  of  quadrilateral  and  multihorse¬ 
shoe  vortex  networks  used  to  repre¬ 
sent  the  barrier  of  each  lift  fan 

arrays  of  coordinates  of  the  lift- 

=  fan  centers  in  the  reference 
coordinate  system 

_  arrays  of  unit  normal  vector  com¬ 
ponents  of  the  lift-fan  barriers 

=  array  of  values  to  identify  the  type 
of  singularity  representing  each 
barrier  network.  A  positive  num¬ 
ber  denotes  a  quadrilateral  vortex 
network,  and  a  negative  number 
denotes  a  multihorseshoe  vortex 
network.  For  example,  SEQNET (3) 

=  5. 0  means  that  quadrilateral  vor¬ 
tex  network  number  5  is  used  to 
represent  the  third  singularity  net¬ 
work  of  the  lift-fan  barrier.  Each 
lift  fan  has  an  array  of  these  sequen¬ 
tial  singularity  network  identifiers. 

=  array  of  values  indicating  the  type 
of  lift  fans  in  the  model 

-  1. ,  model  requires  half  fan 

=  2. ,  model  requires  complete  fan 

=  array  of  values  specifying  the  num¬ 
ber  of  radial  lines  used  to  define 
the  barrier  areas  of  the  lift  fans 


* 


d 


168 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


NTHETA  =  array  of  values  specifying  the 
number  of  circumferential  lines 
used  to  determine  the  barrier  areas 
of  the  lift  fans 

R  =  array  of  radial  distances,  rj,  used 

to  form  the  barrier  areas.  An  array 
of  values  is  required  for  each  lift 
fan. 

THETA  =  array  of  circumferential  angles, 

used  to  form  the  barrier  areas. 
An  array  of  values  is  required  for 
each  lift  fan. 


None 

None 

A  maximum  of  ten  lift  fans  in  a  configuration  is  allowed. 
Each  fan  can  have  a  maximum  of  20  r's  and  50  0's. 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  TV  Subroutine  CONTRL 

To  print  an  image  of  the  data  card,  to  interpret  data 
commands,  and  to  control  flow  through  the  potential -flow 
program 

The  routine  first  calls  subroutine  DATA,  which  writes 
images  of  the  data  cards  on  the  output  data  file. 

Then  function  INTURP  is  used  to  read  a  data  card,  to 
write  its  contents  on  the  output  file,  and  to  see  whether 
it  is  a  control  card.  A  control  card  has  the  words  GEOM, 
SOUR,  QUAD,  MULT,  OFF-,  OFFb,  ENDb,  AERO,  or 
EXIT  in  columns  1  through  4  (b  represents  a  blank).  The 
contents  of  the  remaining  columns  are  written  on  the  output 
file  but  are  otherwise  not  used.  If  the  data  card  is  a 
control  card,  the  appropriate  action  is  taken;  otherwise, 
successive  cards  are  read  until  a  control  card  is  found 
(this  feature  permits  the  insertion  of  comment  cards  or 
blank  cards  immediately  before  any  control  card).  The 
GEOM  control  card  results  in  a  call  to  subroutine  GEOM. 
On  return,  data  cards  are  again  read  until  a  control  card 
is  encountered. 

When  an  AERO  control  card  is  read,  CONTRL  calls,  in 
order,  subroutines  AERO,  MATRIX,  FLOW,  PLOT,  and 
STREAM.  An  EXIT  control  card  results  in  termination 
of  the  computer  run. 

If  any  subroutine  detects  an  error,  subroutine  DATA  is 
called,  which  positions  the  input  data  file  just  in  front  of 
the  next  GEOM  or  EXIT  control  card. 

COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

CALL  CONTRL 

Input:  NT  SIN  =  input  data  file  number 

NTSOUT  =  output  data  file  number 


ICOM(8) 


number  of  streamlines  desired 


SUBPROGRAMS 
CALLED:  DATA 

INTURP 
GEOM 
AERO 
MATRIX 
FLOW 
STREAM 

*  PLOT 

ERROR  RETURNS:  Subroutine  error  codes  are  returned  from  the  subroutine 
in  which  they  occur. 

*  RESTRICTIONS:  None 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  DATA 

To  print  out  input  data  card  images 

The  input  data  file  is  searched  until  a  GEOM  or  an  EXIT 
control  card  is  found.  If  a  GEOM  card  is  found,  all  data 
cards  for  the  following  configuration  are  printed,  and  then 
the  input  data  file  is  backspaced  until  it  is  positioned  Just 
in  front  of  the  GEOM  card.  When  an  EXIT  card  is 
encountered,  the  computer  run  is  terminated. 

COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

CALL  DATA 


Input: 

COM(2)i  =  date  0(  ru“ 

NT  SIN  =  input  data  file  number 

NTSOUT  =  output  data  file  number 

SUBPROGRAMS 

Output; 

ICOM(6)  =  data  case  number 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS:  If  the  EXIT  card  does  not  appear  in  the  data  deck,  the 

computer  run  will  be  terminated  by  the  End  of  File  (EOF) 
on  the  input  data  file. 


* 


4 
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SUBJECT: 


FORTRAN  IV  Subroutine  DATE 


PURPOSE:  To  obtain  the  current  date 

METHOD:  This  is  a  dummy  subroutine  that  returns  blanks.  An 

appropriate  change  may  be  made  at  the  user's 
installation  to  return  the  true  date. 

USAGE:  CALL  DATE  (A.  B) 

Output:.  A  -  first  portion  of  the  date  (alphameric) 

B  =  last  portion  of  the  date  (alphameric) 


SUBPROGRAMS 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 
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SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  ENDSL 

To  print  a  message  stating  the  reason  for  termination  of 
a  streamline 

There  are  six  possible  ways  for  a  streamline  to  terminate: 

1.  The  number  of  points  defining  the  streamline  exceeds 
50. 


2.  The  streamline  exceeded  the  maximum  allowable 
length  (the  maximum  length  is  specified  by  the  user). 

3.  The  streamline  failed  to  enter  the  starting  source 
panel. 

4.  The  streamline  reached  a  near-stagnation 
region. 

5.  The  periphery  search  of  the  source-panel  networks 
for  an  entrance  was  unsuccessful. 

6.  The  source-panel-defining  quantities  were  incorrectly 
read  from  a  data  file. 

If  a  streamline  is  terminated  because  it  reached  a  near¬ 
stagnation  region,  the  boundary  point  and  the  velocity  at 
the  boundary  point  of  the  last  panel  traversed  and  the 
panel  the  streamline  failed  to  enter  are  printed. 

COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

COMMON  /SL2/  (See  subroutine  PANEL. ) 

CALL  ENDSL  (ITERM,  AL,  IP,  JP,  KP,  LP,  I,  J,  K,  L) 
Input:  NTSOUT  =  output  data  file  number 


ITERM 


1,  number  of  streamline  points 
exceeds  50 

2,  streamline  exceeded  maximum 
specified  length 

3,  streamline  failed  to  enter  starting 
panel 

4,  streamline  reached  a  near¬ 
stagnation  region 


* 
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AL 


XBP  ) 
YBP  } 
ZBP  ) 


5,  network  periphery  search  was 
unsuccessful 

6,  sourcs-panel-de  fining  quantities 
were  incorrectly  retd  from  a 
data  file 

specified  maximum  length  of  a 
streamline 

indices  of  the  last  source  panel 
traversed  by  the  streamline  (the  Ipth 
panel  in  the  JPtb  column  of  the  KP*h 
network;  LP  is  the  panel's  accumu¬ 
lative  number) 

indices  of  the  source  panel  the 
streamline  failed  to  enter  (the  Ith 
panel  in  the  J*k  column  of  the  Kth 
network;  L  is  the  panel's  accumu¬ 
lative  number) 

arrays  of  the  coordinates  of  the 
source-panel  boundary  points 


VFX 

VFY 

VFZ 


arrays  of  the  velocity  components, 
at  the  source-panel  boundary  points 


SUBPROGRAMS 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

4 


ft 
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SUBJECT: 

PURPOSE: 


METHOD: 


FORTRAN  IV  Subroutine  FAIL 

To  determine  the  cause  for  the  failure  of  a  streamline  to 
enter  a  panel 

This  routine  tests  the  streamline  entrance  angle  of  the 
previous  panel  (last  panel  the  streamline  successfully 
traversed)  and  the  current  panel  (panel  streamline  foiled 
to  enter)  to  determine  whether  the  streamline  has  a  rapid 
change  in  direction;  i.  e. ,  reached  a  near-stagnation 
region.  The  streamline  reached  this  region  if 

cos  9p  <  €11  <59) 


or 


cos  6  <  *n  (60) 

where  9  =  the  streamline  entrance  angle  of  the 

p  previous  panel 

9  =  the  streamline  entrance  angle  of  the 
current  panel 

eu  =  cos  20* ,  cosine  of  the  limiting  entrance 
11  angle 


The  cosine  of  the  streamline  entrance  angle  of  the  current 
panel  is  defined  as 


cos  9  = 


(*V+\2)  -  ij2 - (v.  -  <) 

_  (61) 
where  V  ■  de  =  V{  •  <4#t,  -  y  +  V,  .  (Vl  -  vj 


^5  )  _  the  velocity  components  in  the  element 
j  coordinate  system 


corner-point  coordinates  of  the  source 
tj  1  =  panel  in  the  element  coordinate  system. 

e  The  subscript  e  is  the  corner-point  number. 

The  streamline  entrance  angle  and  (V  •  de)  of  the  previous 
panel  are  calculated  in  subroutine  STREAM.  If  the  two 
stagnation  tests  fail,  but  the  sign  of  the  previous  panel  is 
the  same  as  the  sign  of  the  current  panel,  the  streamline 
is  terminated. 


* 


4 


4 
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USAGE: 


» 


If  the  streamline  did  not  terminate,  one  additional  teat  is 
performed  that  determines  a  new  exit  side  and  the  frac¬ 
tional  distance  of  the  streamline-starting  point  along  the 
side  (d/de)  the  current  panel.  If  the  sign  of  •  dg  is 
positive,  tiie  exit  side  and  fractional -starting  distance  are 
given  by 


e  =  e  -  1  (62) 

d/de  *  0. 99  (63) 

However,  if  the  sign  of  V  •  %  is  negative,  the  exit  side 
and  fractional -starting  distance  are  given  by 

e  =  e  +  1  (64) 

d/de  =  0. 01  (65) 


Subroutine  STREAM  uses  the  new  values  of  e  and  d/dg  to 
continue  traversing  the  panels. 

COMMON  /SL2/  (See  subroutine  PANEL.) 


INTEGER  EE,  EX 

CALL  FAIL  (ISL,  L,  LP,  EE,  EX,  DDX,  ITERM) 
Input: 


VG 

VH 


velocity  components  of  the  current 
panel  in  the  element  coordinate 
system 


VDEP  =  the  value  of  V  •  dg  for  the  previous 
panel 

COSTP  =  cosine  of  the  streamline  entrance 
angle  of  the  previous  panel,  cos  fln 


Ell 

ISL 


LP 


EE 


=  limiting  entrance  angle, 

=  index  for  the  number  of  points  in  a 
streamline 

=  accumulative  source-panel  number  of 
the  current  panel 

=  accumulative  source-panel  number  of 
the  previous  panel 

=.  entrance  side  number  of  the  current 
panel 
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Output:  EX  *  exit  aide  number  of  the  current  panel 

DDX  s  fractional-starting  distance  of  the 
streamline  along  the  exit  side  of  the 
current  panel 


1TERM  2  0,  the  streamline  did  not  terminate 


2  3,  the  streamline  failed  to  enter  the 
starting  panel  (ISL  2  1) 

=  4,  the  streamline  reached  a  near¬ 
stagnation  region 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


None 

None 

The  previous  and  current  panels  must  be  four-sided. 


SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  FLOW 

To  calculate  the  velocity  and  pressure  coefficient  at  the 
boundary  points  on  the  potential-flow  model  and  at  off- 
body  points 

This  routine  has  five  primary  functions: 

1.  Calculate  and  print  the  resultant  velocity  components, 
velocity  magnitude,  pressure  coefficient,  singularity 
strength,  and  resultant  normal  velocity  at  each 
singularity  boundary  point. 

2.  Calculate  and  print  the  resultant  velocity  components, 
velocity  magnitude,  and  pressure  coefficient  at  each 
off-body  point. 

3.  Create  a  data  file  containing  the  boundary-point 
coordinates,  unit  normal  vector  components,  areas, 
pressure  coefficients,  and  singularity  strengths  of 
the  source-panel  singularities.  This  data  file  is  used 
by  subroutine  FORCES  to  compute  the  force  and 
moment  coefficients  of  the  model  represented  by 
source  panels. 

4.  Create  a  data  file  containing  the  boundary-point 
coordinates,  resultant  velocity  components,  and 
singularity  strengths  of  the  lift-fan  barrier  singular¬ 
ities.  This  data  file  is  used  by  subroutine  CONSUR 
to  compute  the  lift-fan  barrier  velocities  and 
pressures. 

5.  Create  a  data  file  containing  the  title,  number  of 
source-panel  networks,  network  dimensions,  number 
of  solutions,  angles  of  attack,  angles  of  yaw,  and 
boundary -point  coordinates,  velocities,  and  pressure 
coefficients  of  the  source-panel  singularities.  This 
data  file  is  used  by  subroutine  PLOT  to  plot  the 
velocity  and  pressure  distributions  on  the  model. 

Subroutine  FLOW  reads  the  reference  quantities  used  to 
define  the  force  and  moment  coefficients  from  the  input 
data  file;  then  the  lift-fan  barrier  geometry  is  read  and 
stored  in  a  labeled  COMMON  block  for  use  by  subroutine 
CONSUR. 

At  the  beginning  of  the  computations  for  a  particular 
solution,  a  short  title  block  is  printed  that  contains  the 
solution  number  and  the  type  of  solution  desired— angle 
of  attack/angle  of  yaw  specification  or  a  zero  free-stream 
velocity  specification.  Then,  using  subroutine  READTP, 
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t. 


the  resultant-induced  velocity  components  (u,  v,  w)  at  the 
boundary  points  and  off-body  points  are  read  from  data 
files  created  by  the  matrix  routines.  A  resultant-induced 
velocity  is  the  velocity  at  a  point  due  to  all  the  singularities 
of  the  model.  The  resultant  velocity  at  a  point  is  the  sum 
of  the  resultant-induced  velocity  and  the  free-stream 
velocity  at  that  point.  Its  components  are 


vx  =  u  + 


Vy  =  v  +  V<6y 

Vz  =  w  +  Vwz 


(66) 


The  magnitude  of  velocity  and  the  pressure  coefficient 
are  obtained  from 


V 


y2  +  w2  +  v2 

x  y  z 


(67) 


(68) 


If  the  point  is  a  singularity  boundary  point,  the  resultant 
normal  velocity  ia 


RN 


where 


V*+vyVVz  (69> 

unit  normal  vector  components  at  the 
boundary  point 


This  velocity  indicates  the  validity  of  the  solution  (Note: 
a  velocity  in  the  range  10“®  to  lO"*6  is  caused  by  com¬ 
puter  roundoff).  If  the  user  specifies  a  normal  velocity 
(see  subroutine  SNF),  it,  plus  any  roundoff,  will  appear 
here. 


The  singularity  strengths  are  read  from  another  data  file 
created  by  the  matrix  routines. 


All  geometric  quantities  (boundary -point  coordinates, 
unit  normal  vector  components,  singularity  areas,  and 
off-body  point  coordinates)  are  read  from  the  boundary- 
point  quantities  data  file  and  stored  in  the  array  BP. 


« 


* 


* 

I 


\ 


J 
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COMMON  (See  program  MAIN  for  blank  COMMON 
description.) 

CALL  FLOW 


Input: 


ICOM(l)  = 

ICOM(2)  = 
ICOM(3)  » 
ICOM(4)  = 
ICOM(7)  = 
NT1 

NT2 

NT  3 

NT4 

NT  SIN  = 
NTSOUT  = 
NT  8 

NT  PLOT  = 

NT16 

NT  17 


NPR 


1,  symmetric  flow 
3,  unsymmetric  flow 
maximum  matrix  partition  size 
force  and  moment  option  code 
plot  option  code 

number  of  lift  fans  in  the  model 

data  file  number  of  the  singularity 
strengths 

data  file  number  of  the  x  component 
of  the  resultant-induced  velocities,  u 

data  file  number  of  the  y  component 
of  the  resultant-induced  velocities,  v 

data  file  number  of  the  z  component 
of  the  resultant-induced  velocities,  w 

input  data  file  number 

output  data  file  number 

data  file  number  of  the  boundary- 
point  quantities 

data  file  number  of  the  results  to  be 
plotted 

data  file  number  of  the  quantities 
required  to  compute  the  force  and 
moment  coefficients 

data  file  number  of  the  quantities 
required  to  compute  the  velocities 
and  pressures  on  the  lift-fan 
barrier 

number  of  row  partitions  in  the 
aerodynamic  solution  matrices 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


LS  =  array  containing  the  number  of  row 

elements  (resultant-induced  vel¬ 
ocities  or  singularity  strengths)  in 
each  row  partition 

MATSP  =  number  of  source-panel  singularities 

MATQV  =  number  of  quadrilateral  vortex 
singularities 

MATMHV  =  number  of  multihorseshoe  vortex 
singularities 

NETSP  =  number  of  source-panel  networks 

MSP  )  _  arrays  containing  the  dimensions  of 

NSP  $  ~  the  source-pane?  networks 

NETQV  =  number  of  quadrilateral  vortex 
networks 

MQV  )  _  arrays  containing  the  dimensions  of 

NQV  j  the  quadrilateral  vortex  networks 

NETMHV  -  number  of  multihorseshoe  vortex 
networks 

NHV  =  array  containing  the  dimensions  of 

the  multihorseshoe  vortex  networks 

NRHS  =  number  of  simultaneous  solutions 

ALPHA  -  array  of  angles  of  attack,  a 

PSI  =  array  of  angles  of  yaw,  4> 

FSVX  =  array  of  the  x  component  of  the  free- 

stream  velocity,  V„x 

FSVY  =  array  of  the  y  component  of  the  free- 
stream  velocity,  V  „ 

y 

FSVZ  =  array  of  the  z  component  of  the  free- 
stream  velocity,  V_„ 

CONSUR 

FORCES 

READTP 

None 

None 


! 


I 


j 
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SUBJECT: 


FORTRAN  IV  Subroutine  FORCES 


PURPOSE: 

METHOD: 

3 


To  calculate  the  force  and  moment  coefficients  on  the 
potential-flow  mc  ’el  at  a  given  angle  of  attack  and 
angle  of  yaw 

This  routine  is  divided  into  three  sections: 

•  Calculation  of  the  force  and  moment  coefficients  on  the 
source-paneled  model, 

•  Calculation  of  the  force  and  moment  coefficients  on  the 
lift  fans,  and 

•  Calculation  of  the  total  force  and  moment  coefficients 
on  the  potential-flow  model. 

1.  Force  and  Moment  Coefficients  of  the  Source-Paneled 
Model 

The  nomenclature  used  in  this  section  is  listed  below. 


xr  ) 

yr  \  =  moment  reference  coordinates 
zr  * 

c  *  reference  chord 

r 

br  =  reference  span 

Sy  =  reference  planform  area 

a  =  angle  of  attack 

>P  =  angle  of  yaw 

NET  =  total  number  of  source-panel  networks 
=  number  of  columns  in  the  k*h  network 

M.,  =  number  of  panels  in  the  column  of  the  k**1 

^  network 

Xi) 

I  _  boundary-point  coordinates  of  the  ith  panel  in 
yi  (  the  column  of  the  k*h  network 


nXi| 

nyi  ( 

nzt ) 


unit  normal  vector  components  of  the 
I4*1  panel 
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A{  *  area  of  the  ith  panel 

Cp.  »  pressure  coefficient  at  the  boundary  point  of 
the  1th  panel 

<Tj  =  singularity  strength  of  the  i^  panel 
rXi  ~  *i~  xr 

ryi  -  yi  -  yr 

r*i  =xi-*r 

The  symmetric  and  unsymmetric  flow  formulation  of 
the  calculations  follows. 

a.  Symmetric  Flow 

The  force  coefficients  per  source-panel  column  are 
given  by 


The  total  force  coefficients  due  to  all  the  source 
panels  are 


NET 

Nk 

CFXS 

*2E 

E 

k*l 

j-i 

NET 

Nk 

CFzs 

■2E 

E 

1t*l 

'Fx 


jk 


'Ft 


jk 


(71) 


The  moment  coefficient  per  source-panel  column  is 
given  by 


c  S 
r  r 


C  A, 
Pi  i 


(72) 


t 


♦ 


9 
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The  total  moment  coefficient  due  to  ell  the  source 
panels  is 


NET  Nk 


C  s  2  yP  C 

mys  tmj  my.. 

k*l  J*1  ,x 


(73) 


The  lift  and  'ir*g  coefficient*  per  aou  roe -panel 
column  are  given  by 

ct  *  ”cp*  »**»*+  C_  co»a  (74) 
jk  FxJk  Fzjk 

Cn  =  C-.  co*  tt  +  C-,_  *ln  a  (75) 
DJk  Fxjk  FzJk 


The  total  lift  and  drag  coefficient*  due  to  all  the 
source  panel*  are 


NET 

2 

k=l 


Nk 

z 

J=1 


(76) 


(77) 


The  net  source-panel  strength  per  source-panel 
column  i*  given  by 


i=l 


(78) 


The  total  strength  due  to  all  the  source  panels  is 


NS 


NET  Nk 

2  E  E  NSik 

k=l  j=l 


(79) 
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The  wetted  are*  per  source -panel  oolumn  is  given  b  * 


(80) 


and  the  total  wetted  area  of  the  souroe-paneled 
model  it 


*  M 

NET  "k 

^ 8  L  E  A*Jk 

k»l  j-1  1 


(81) 


b.  Uneymmetric  Flow 

The  force  coefficients  per  source-panel  oolumn  are 
given  by 


!fx  *  -f  £  cp  w 
1  2? 

Sk  "  "Sr  S  Cpi Al  % 
x  MJk 

S<  *  -rr  g  cp,  Ai  \ 


(82) 


The  total  force  coefficients  due  to  all  the  source 
panels  are 


NET 

Nk 

CFXS 

* 

z 

j-1 

CFxjk 

NET 

Nk 

CFys 

■E 

E 

CFyJk 

fc-1 

j»i 

NET 

Nk 

CFss 

■  E 

E 

°F*Jk 

k-1 

j-i 

(83) 


186 


The  moment  coefficients  per  source -panel  column 
are  given  by 

Hc"E^§  V1  hW‘.l 

.  Mik 

C_„  *  -  — Q-  V*  c  A.  I  n  R  -  n„  r  J 

myjk  crSr  pf  Pt  1  I  i  i  i  i| 

(84) 


Jk 

c:  *  -trs"  V1  cn  Ai  !n„  K  ~ K  r„  1 

m  Jk  brSr  pt  pi  1  I  yi  i  i  yiJ 

The  total  moment  coefficients  due  to  all  the  source 
panels  are 


NET 

Nk 

c 

mxs 

ii 

M 

E 

k=l 

j-i 

NET 

Nk 

Cmys 

“  £ 

E 

k=l 

j=i 

NET 

Nk 

^mzs 

■  £ 

E 

k=l 

j=i 

mx 


Jk 


my. 


Jk 


(85) 


mz 


Jk 


The  lift,  drag,  and  side  force  coefficients  per 
source-panel  column  are  given  by 

CT  =  -  C*.  sin  a  cos  ip 
Ljk  Fxjk 

+C_  sin  a  sin  ^  +  C-.,  cos  a 
Fyjk  FzJk 

Cr»  -  C„  cos  a  cos  ip 
Djk  FxJk 

-  C_  cos  a  sin  ip  +  sin  a 
Fyjk  FzJk 

Cv  =  C_  sin^i  +C_  cos  tp 
Yjk  FxJk  FyJk 


(86) 

(87) 

(88) 
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The  total  Hi,  drag,  and  aide  force  coefficients  doe 
to  all  the  source  panel#  are 


'Ds 


"Ys 


NET  Nk 

E  E 

k-1  j-1 
NET  Nk 

E  E 

k-1  j-1 
NET  Nk 

E  E 

k-1  j-1 


Jk 


ljk 


(89) 


(90) 


(91) 


The  net  strength  per  source-panel  column  is 
given  by 


^ik-  E  ai  Ai 

i-i 


(92) 


The  total  strength  due  to  all  the  sourca  panels  is 


NET  Nk 


NS 


E  E  NV 

k-1  j-1 


(93) 


The  wetted  area  per  source-panel  oolumn  is  given 
by 


% 

\  ■  E  Ai 

t«i 


(94) 


And  the  total  wetted  area  of  the  source-paneled 
model  is 


ws 


NET  Nk 

E  E 

k-1  j-1 


w 


jk 


(95) 
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2.  Force  and  Moment  Coefficient*  of  the  Lift  Fane 


A  lift  fan  eoneiete  of  a  barrier  (fan  surfaoe),  centerbody, 
exit  plane  (flow  exiting  from  the  lower  surface) ,  and 
oenterbody  base,  as  shown  in  Figure  70.  The 
barrier  and  exit  plane  are  called  control  surfaces. 


0 


I 

t 


% 


Fig  <  e  70.  Subroutine  FORCES— Lift- Fan  Assembly. 

The  barrier,  exit  plane,  and  centerbody  base  are  used 
in  the  analysis  for  force  and  moment  calculations  on 
die  lift  fan.  The  centerbody  is  represented  by  source 
panels;  hence,  the  forces  and  moments  on  it  are 
calculated  in  the  previous  section.  A  maximum  of  ten 
lift  fans  can  be  accepted  by  the  program. 

The  nomenclature  used  in  this  section  is  listed  below. 


moment  reference  coordinates 

reference  chord 
reference  span 
reference  planform  area 

angle  of  attack 
angle  of  yaw 

number  of  columns  in  the  barrier  of  the 
k*h  lift  fan 
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yi 

*i 


v*bi) 
vy*H  ? " 
v*bi) 


number  of  barrier  arete  in  the  j'^  column  of 
the  lift  fan 

boundary -point  coordinates  of  the  ba  rrier 
area  in  the  column  of  the  lift  fan 


Ith  barrier  area 

pressure  coefficient  at  the  boundary  point  of 
the  ith  barrier  area 


velocity  components  at  the  boundary  point 
of  the  i®  barrier  area 


normal  velocity  into  the  1th  barrier  area, 
%t  3  ~  Sbjj  Vxb{  +  nybjtVybl  +  “zb^zbj 


yi  “yr 


coordinates  of  the  center  of  the  ktb 
barrier 


unit  normal  vector  components  of  the 
barrier 


rzbk  '  V*r 
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•XHaVt&ufZjCK -PA.,, --  - 


The  total  pomatum  fore*  ootSidmu  s* the 
barrier  are 


'r*\ 


'Fz3k 


=  2 


"k 

E 

j  =  l 
Nk 

E 

j=i 


'Fx3 


Jk 


(102) 


'Fz3 


jk 


The  momentum  force  coefficients  per  column  on 
the  exit  plane  are  given  by 

M, 


» "  &  v  % 


(103) 


The  total  momentum  force  coefficients  on  the  exit 
plane  are 

N,. 


'Fx4,. 


'Fz4,. 


=  2 


=  2 


’k 

E 

j  =  l 


'Fx4 


jk 


N, 


(104) 


k 

E 

j  =  l 


'Fz4 


jk 


The  pressure  moment  coefficient  per  column  on  the 
barrier  is  given  by 


M. 


'myijk'  o 


Jk 

A  £  c 


i=l  ^i 


%  "xb,  ‘  %  nzbk 


(105) 


The  total  pressure  moment  coefficient  on  the 
barrier  is 


=  2 


N, 


j  =  1 


myl; 


jk 


(106) 
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The  pressure  moment  coefficient  per  column  on  the 
exit  plane  is  given  by 


c”»*jk‘«Scp. .  [ribk  °i*k 


rV*bk]]E  Ab, 


The  total  pressure  moment  coefficient  on  the  exit 
plane  is 


Cmy2.  =  2  £  Cmy2. 


The  momentum  moment  coefficient  per  column  on 
the  barrier  is  given  by 


Cmy3jk  crSr  ]£  %  \\  V*bi  \  VzbJAbi 

(109) 

The  total  momentum  moment  coefficient  on  the 
barrier  is 


Cmy3k  =  2  E  °my3j 


The  momentum  moment  coefficient  per  column  on 
the  exit  plane  is  given  by 


W4Jlt  ■  crSrE  [<r2,'”*bkhk)txk 

'  Wk,\l\  (U1> 


The  total  momentum  moment  coefficient  on  the  exit 
plane  is 


The  wetted  area  per  oolumn  of  the  barrier  and 
exit  plane  is  given  by 


Awbjk  *  §  \ 

(118) 

AweJk  Awbjk 

(119) 

* 

The  total  wetted  area  on  the  barrier  and  exit 
plane  is 

0 

"k 

X  ■ 2  §  Xk 

(120) 

X  ■  X 

(121) 

Unsymmetrio  Flow 

The  pressure  force  coefficients  per  column  on  the 
barrier  are  given  by 

n  .  Mjk 

C_  .  *  a  k  V'  C  A. 

Fxlik  ^7  fa  \  bi 


-  ^k  K?  c 
jk  V  fa  Pb 


Fyl, 


n.  Mjk 

CFZl  =  if-  k  Y"  On  Ab 

Fl)k  Sr  fa  Pb,  bl 


(122) 
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The  total  pressure  force  coefficients  on  the  terrier 
are 


f 


% 


'Fxl. 


'Fyl. 


'Fzl,, 


Nk 

Ec 

j*i 
Nk 

Ec 

j=i 

\ 

E  c 

j-i 


Fxl 


jk 


Fyl 


Jk 


Fzl 


jk 


(123) 


The  pressure  force  coefficients  per  column  on  the 
exit  plane  are  given  by 


'F«2)k  Sr  Cp 


M 


Jk 

E  Ab, 

i=l  1 


n  .  Mjk 

kk-fkc»,  <124> 

r  ®k  i=*l  1 


=  -^k  C 

'Fz2jk  Sr  \ 


M 


Jk 

E\ 

i-1  * 


The  total  pressure  force  coefficients  on  the  exit 
plane  are 


'Fx2,. 


'Fy2, 


'Fz2,. 


Nk 

E  c 

j=i 

Nk 

E  c 

j=i 

\ 

E  c 

j=i 


Fx2 


Jk 


Fy2 


jk 


Fz2 


jk 


(125) 
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The  momentum  force  coefficients  per  column  on  the 
exit  plane  are  given  by 


The  total  pressure  moment  coefficients  on  the  barrier 
are 


'mylk  =  £  Cmyl, 


k 

CmzL  “  £  Cmzl.. 
k  j»l  ,K 

The  pressure  moment  coefficients  per  column  on  the 
exit  plane  are  given  by 

M,k 

Cmt2jk  ■  *k  \  K  °zbk  ■  hh]  2  *•>, 

i 

cmy2)k  ■  orsr  °p,k  [r*k  n*k  ■  r=*k  ”*l>kl|j  \ 

(133) 

1  Mjk 
Cmz2jk  brSr  °pek  [^k  ”ybk  ^k^k]  ^  Afai 

The  total  pressure  moment  coefficients  on  the  exit 
plane  are 

Nk 

Cmx2,  “  J)  Cmx2.. 


Cmy2k  ”  2 


"k 

-Ec. 
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<U7) 


2  „  2 


'my4jk  crSrE  £  [<r*t 


Mlk 

2  Jr  _  2 


Cmt4jkabrSrE  £  \  [^  '  nxbk  V  Vk 

The  total  momentum  moment  coefficients  on  the  exit 
plane  are 


N. 


i  x  n 

'mx4.  mx4.. 

3=1  ,K 


N,. 


^  "  E  c»>y<jk 


(138) 


'mz4. 


N,. 


1=1 


'mz4 


jk 


The  pressure  moment  coefficients  on  the  centerbody 
base  are  given  by 


C_  fr  ,  n.  -r. 


mxck  brSr  pck  zbk  zbk 


Cmyck  *  crSr  Cp  [r*k  Vk  •  r*bk  nzbk]  \ 

K  (139) 

c™ck‘sS  \  [r*k  X  ‘  X  X]  \ 
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The  lift,  dreg,  and  aide  force  coefficients  per 
column  on  the  barrier  and  exit  plane  are  given  by 

^Lljk  *  “  8*nac08^  +  ^  ^ 

♦  c_  *  coe  a  (140) 

FzIjk 

CDljk  "  CFxIjk  008  a  008  ♦  -  Ci>Ijk  c08  a  8in  * 

+  C-,  sin  a  (141) 

Fzijk 


CYIJk  =  CFxlJk  sln  *  *  CFxl)k  «*  *  <>«> 

where  I  =  1,  pressure  force  on  barrier 
1=2,  pressure  force  on  exit  plane 
1=3,  momentum  force  on  barrier 
f  =  4,  momentum  force  on  exit  plane 
I  =  c,  pressure  force  on  centerbody  base 
The  total  lift,  drag,  and  side  force  coefficients  are 


N, 


'Ll, 


Dl, 


Yl, 


k 

E 

J=1 


'Ll 


jk 


Nk 

£ 

j=i 

E 

j=i 


'Di 


jk 


"Yl 


jk 


(143) 


(144) 


(145) 


where  I  =  1,2,  3,  4,  and  c,  as  before 
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The  wetted  area  per  oolumn  of  die  barrier  and  exit 
plane  is 

*jk 

Awb  k  *  £  Abt 
i*l  1 

(146) 

AweJk  Awbjk 

(147) 

4 

And  the  total  wetted  area  of  the  barrier  and  exit 
plane  Is 

4 

Nk 

H  *  g  H 

(148) 

H  'H 

(149) 

3.  Total  Force  and  Moment  Coefficient*  of  the  Potentlal- 
Flow  Model 


The  total  to  roe  and  moment  coefficients  of  the  model 
are  composed  of  contributions  due  to  all  the  source 
panels  and  all  the  lift  fans. 

N 

CFx“CFXB+  £[CFxlk+CFx2k+CFx3k+CFx4k+CFxck 
k“1  (150) 

N 

CFy  *  CFys  +  £lCFylk+CFy2k+CFy3k+CPV4k+CFyckJ 
k*1  (151) 

N 

CFa  *  CFzs  +  £[CFzlk+  CFz2k+CFz3k+CFz4k  +  CFzck 
k“1  (152) 

N 

Cmx“  Cmxs  +  ^  [Cmxlk+  Cmx2k+  Cmx3k+  Cmx4k+Cmxck 
11=1  (153) 
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USAGE: 


* 


% 


N 

Cmy”  Cmys  +  ]C  1° : 

k=l 


mylk+  Cmy2k+  Cmy3k+  Cmy4k+  Cmy< 


(154) 


c  *  c  +  y*  ic 

mz  mzs  jLu  t 


N 

I 

k=l 


i  /i  +p  +c  +c  I 

mzlk  mz^  mz4k  mzc^J 

(155) 


N 


CL  =CI^+XI|CLlk+CUk  +  CMk  +  CL4k  +  CLckl 


k=l 

N 


CD  *  CDs+£  |CDlk  +  CD2k  +  CD3k  +  CD4k  +  CDck| 


k-1 

N 


CY  =  CYs+£  [°Ylk  +  CY2k  +  CY\  +  CY4k  +  CYcJ 


k=l 

N 


Aw  Aws+  iC  lAwbk  +  Awek  +  AcJ 


(156) 

(157) 

(158) 

(159) 


k=l 


where  N  =  number  of  lift  fans  in  the  model 


If  the  flow  is  symmetrical,  only  CFx,  Cpz,  Cmy, 
Cl,  Cq,  and  A w  are  calculated. 


COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

COMMON  /JOM1/XBP(500),  YBP(500),  ZBP(500), 
ANX(500),  ANY(500),  ANZ(500). 
AREA(500),  VF(500),  CP(500), 
SIGMA  1(500) 

COMMON  /JOM2/  (See  subroutine  CONSUR.) 

COMMON /JO M3/XB(20),  YB(20),  ZB(20),  VBX(20), 
VBY (20) ,  VBZ(20),  CPB(20),  AR(20) 

CALL  FORCES  (KSOL,  XR,  YR,  ZR,  SR,  CR,  BR) 
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Input:  ICOM(l)  = 


ICOM(7)  = 
NTSOUT  = 
NT  16 


NETSP  = 

MSP  I 
NSP  j 

ALPHA  = 

PSI 

XBP  ) 

YBP 
ZBP  ) 

A  NX  ) 

ANY 
ANZ  ) 

VF 


CP 


SIGMA  1  = 


TYPE 


NR 

NTHETA1 ~ 


1,  symmetric  flow 
3,  unsymmetric  Cow 

number  of  lift  fans  in  the  model 

output  data  file  number 

data  file  number  of  the  quantities 
required  to  compute  the  force  and 
moment  coefficients 

number  of  source-panel  networks 

arrays  containing  the  dimensions  of 
the  source-panel  networks 

array  of  angles  of  attack,  a 

array  of  angles  of  yaw,  4> 


arrays  of  boundary-point  coordinates 
of  the  source-panel  singularities 


arrays  of  unit  normal  vector  compo¬ 
nents  of  the  source-panel  singularities 

arrays  of  velocities  at  the  source- 
panel  boundary  points 

arrays  of  pressure  coefficients  at  the 
source-panel  boundary  points 

arrays  of  singularity  strengths  of  the 
source  panels 

array  of  codes  to  indicate  fan  definition 

=  0,  center  of  fan  in  the  x-z  plane  and 
flow  is  symmetric 

-  1 ,  center  of  fan  not  in  the  x-z  plane 
and/or  flow  is  unsymmetric 

arrays  containing  the  dimensions  of 
barrier  area  networks 


CPC  =  array  of  assumed  centerbody  pres¬ 
sure  coefficients 


* 


r 
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CPE  -  array  of  assumed  exit  plane  pres¬ 
sure  coefficients 


_  arrays  of  coordinates  of  the  centers 
of  the  lift -fan  barriers 


XBC  ) 
YBC 
ZBC  ) 


ANBX 

ANBY 

ANBZ 


arrays  of  unit  normal  vector  com¬ 
ponents  of  the  lift-fan  barriers 


ANEX  \ 

ANEY  '  =  arrays  °*  unit  vector  components  in 

ANEZ  I  the  direction  of  the  jet  efflux 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


H 

array  of  average  distances  between 
the  barriers  and  exit  planes 

DC 

* 

array  of  diameters  of  the  centerbody 
bases 

XB  ) 

YB  } 

ZB  ) 

■ 

arrays  of  boundary-point  coordinates 
of  the  barrier  areas 

VBX  ) 
VBY  j 
VBZ  ) 

= 

arrays  of  velocity  components  at  the 
barrier  boundary  points 

CPB 

= 

arrays  of  pressure  coefficients  at  the 
barrier  boundary  points 

AR 

= 

arra;  s  of  the  barrier  areas 

KSOL 

= 

solution  number 

XR  ) 

YR  } 

ZR  ) 

= 

moment  reference  coordinates 

SR 

= 

reference  planform  area 

CR 

= 

reference  chord 

BR 

= 

reference  span 

None 

None 

None 


SUBJECT: 


FORTRAN  IV  Subroutine  GEOM 


PURPOSE:  To  control  flow  through  the  Geometric  Section  of  the 

program 

METHOD:  Control  Is  accomplished  through  the  use  of  control  cards 

read  and  interpreted  by  function  INTURP.  Control  cards 
used  in  the  Geometric  Section  contain  the  following  words 
in  columns  1  through  4:  SOUR,  QUAD,  MULT,  OFFb  (or 
OFF-)  and  ENDb  where  b  represents  a  blank.  When  a 
control  card  is  encountered,  subroutine  GEOM  calls  the 
appropriate  subroutine  (see  Figure  71).  For  example,  when 
a  control  card  with  the  word  SOUR  in  columns  1  through  4  is 
encountered,  subroutine  GEOM  calls  SPGEO,  a  subroutine 
that  calculates  the  source-panel  geometric  properties. 


Figure  71.  Subroutine  GEOM—  Flow  Diagram. 

USAGE:  COMMON  (See  program  MAIN  for  blank  COMMON 

description. ) 

CALL  GEOM  (IRROR) 

Input:  TITLE  =  any  desired  title 

COM(2)  I  *  date  of  1,10 

ICOM(l)  =  1,  symmetric  flow 
=  3,  unsymmetric  flow 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


NT  SIN 

NTSOUT 

NT8 

NT  10 

Output:  NROW 


NCOL 

IRROR 


input  data  file  number 

output  data  file  number 

data  file  number  of  the  boundary- 
point  quantities 

data  file  number  of  the  singularity¬ 
defining  quantities 

number  of  row  elements  in  the 
velocity  component  matrices 
(number  of  singularities  plus  num¬ 
ber  of  off-body  points) 

number  of  column  elements  in  the 
velocity  component  matrices  (num¬ 
ber  of  singularities) 

0,  successful 

1,  geometry  error  detected 


PARTIN 

INTURP 

SPGEO 

QVGEO 

MHVGEO 

OFFPTS 

This  routine  transmits  the  Geometric  Section  error  code 
to  subroutine  CONTRL. 

None 


SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


EXAMPLE: 


FORTRAN  IV  Function  INTURP 

To  rend  and  write  a  data  card,  then  to  find  which  four* 
character  word  in  a  given  table  is  the  same  as  die 
characters  in  columns  1  through  4  of  the  data  card 

INTURP  reads  the  next  data  card  on  the  input  data  file 
with  FORMAT  (18A4).  The  contents  of  the  card  are 
written  on  the  output  data  file  with  FORMAT  (1H1,  18A4). 
A  fixed-point  comparison  is  made  between  the  characters 
in  columns  1  through  4  on  the  card  and  each  four- 
character  word  in  the  table  until  a  match  is  found  or  die 
end  of  the  table  is  reached.  The  function  value  returned 
is  the  position  in  the  table  that  matched  the  data  card 
word,  or  is  zero  if  no  match  was  found. 


DIMENSION  EDICT  (N) 

IGO  *  INTURP  (IDICT,  N,  NT  SIN,  NTSOUT) 


IDICT 

S 

table  of  four-character  words 

N 

X 

number  of  words  in  die  table 

NTSIN 

= 

input  data  file  number 

NTSOUT 

s 

output  data  file  number 

IGO 

s 

function  value 

A  data  deck  might  have  three  types  of  data  cards,  each 
group  with  a  header  card  having  a  code  word  in  the  first 
four  columns  and  perhaps  comments  in  the  remaining 
columns.  Assume  the  code  words  are  GEOM,  AERO, 
and  EXIT.  A  portion  of  the  program  could  be  written  as 
follows: 

DIMENSION  IDICT  (3) 

DATA  EDICT/4HGEOM,  4HAERO,  4HEXIT/ 

10  IGO  =  INTURP  (EDICT,  3,  NT  SIN,  NTSOUT) 

IF  (IGO)  10,  10,  20 
20  GO  TO  (100,  200,  300),  IGO 


SUBPROGRAMS 

# 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 
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"TO*"! 


SUBJECT:  FORTRAN  IV  Program  MAIN 


PURPOSE: 

METHOD: 

* 

i 

t 

i 

X 

X 

X 

i 

i 


To  Initialize  the  program  and  to  assign  numbers  to  the  data 
files 


The  program  performs  the  following  operations: 

1.  Establishes  blank  COMMON,  which  is  used  throughout 
the  program. 

2.  Obtains  the  data  and  stores  it  in  COMMON. 

3.  Initializes  certain  program  parameters,  including 
specification  of  the  maximum  matrix  partition  size, 
and  stores  them  in  COMMON. 

4.  Assigns  numbers  to  the  data  files  (either  magnetic 
tape  units  or  disk  files). 

5.  Calls  subroutine  CONTRL,  which  controls  the  flow 
through  the  program. 

Descriptions  of  blank  COMMON  and  the  data  files  follow. 


BLANK  COMMON  DESCRIPTION 


COMMON  TITLE(8),  COM(IO),  ICOM(IO) 

COMMON  NT1,  NT2,  NT3,  NT4,  NTSIN,  NTSOUT,  NT7 
COMMON  NT8,  NTPLOT,  NT10,  NTH,  NT12,  NT13 
COMMON  NT14,  NT15, NT16,  NT17,  NT18,  NT19,  NT20 
COMMON  NPR,  NPC,  LS<40),  NROW,  NCOL,  MATSP 
COMMON  MATQV,  MATMHV,  NETSP,  MSP(200) 
COMMON  NSP(200),  NETQV,  MQV(200),  NQV(200) 
COMMON  NETMHV,  NHV(IOO),  NRHS 
COMMON  ALPHA(5),  PSI(5),  FSVX(5),  FSVY(5),  FSVZ(5) 


Name 

TITLE 

COM(l)  ) 
COM(2)  | 

COM(3) 

COM(4) 

to 

COM(IO) 

ICOM(l) 

ICOM(2) 


Explanation 
any  desired  title 

date  of  run 

longest  source-panel  diagonal 

not  defined 

j  -1,  symmetric  flow 
I  =3,  unsymmetrie  flow 

maximum  matrix  partition  size 
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Name 


Explanation 


NROW 

NCOL 

MATSP 

MATQV 

MATMHV 

NETSP 

MSP  ) 
NSP  1 

NETQV 

MQV  I 
NQV  I 

NETMHV 

NHV 

NRHS 

ALPHA 

PSI 

FSVX 

FSVY 

FSVZ 


number  of  row  elements  in  the  velocity 
component  matrices  (number  of  singu¬ 
larities  plus  number  of  off-body  points) 

number  of  column  elements  in  the  velocity 
component  matrices  (number  of 
singularities) 

number  of  source-panel  singularities 

number  of  quadrilateral  vortex 
singularities 

number  of  multi  horseshoe  vortex 
singularities 

number  of  source-panel  networks 

arrays  containing  the  dimensions  of  the 
source-panel  networks 

number  of  quadrilateral  vortex  networks 

arrays  containing  the  dimensions  of  the 
quadrilateral  vortex  networks 

number  of  multihorseshoe  vortex 
networks 

array  containing  the  dimensions  of  the 
multi  horseshoe  vortex  networks 

number  of  simultaneous  solutions  desired 
(angle  of  attack/angle  of  yaw  specification 
or  zero  free- stream  velocity  specification) 

array  of  angles  of  attack,  a 

array  of  angles  of  yaw,  4> 

array  of  x  component  of  the  free- stream 

velocities,  V  _ 

*  «x 

array  of  y  component  of  the  free- stream 
velocities,  V  „ 

»  «oy 

array  of  z  component  of  the  free -stream 

velocities,  V  _ 

*°z 
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DATA  FILE  DESCRIPTION 


Name 

File  Number 

Conte  ate  of  File 

NT1 

1 

singularity  strengths,  <r 

NT2 

2 

x  component  of  resultant- 
induced  velocities,  u 

NT3 

3 

y  component  of  resultant- 
induced  velocities,  v 

NT4 

4 

a  component  of  resultant- 
induced  velocities,  w 

NTSIN 

5 

input  data 

NTSOUT 

6 

output  data 

NT7 

7 

instructions  for  matrix 
operations 

NTS 

8 

boundary-point  quantities 

NTPLOT 

9 

data  to  be  plotted 

NT10 

10 

defining  quantities  of  the 
singularities 

NTH 

11 

velocity  component  matrix 
!vX|j] 

NT12 

12 

velocity  component  matrix 
IVY,j] 

NT13 

13 

velocity  component  matrix 
(VZu) 

NT14 

14 

punched  output  data  for  the 
bound  ary- layer  program 

NT15 

15 

specified  weighting  values  for 
a  network  of  multihorseshoe 
vortices 

NT16 

16 

data  for  computation  of  the 
force  and  moment  coefficients 
(In  the  Geometric  Section  of 
the  program,  this  file  con¬ 
tains  the  specified  boundary- 
point  quantities. ) 
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USAGE: 

SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


Name  File  Number  Contents  of  File 


NT  17 

17 

data  for  computation  of  the 
potential- flow  properties  of  the 
lift  fane  (In  toe  Geometric  Sec¬ 
tion  of  the  program,  this  file 
contains  the  specified  normal 
velocities. ) 

NT18 

NT19 

NT20 

18  1 
» 

20  ! 

additional  multihorseshoe 

vortex-defining  quantities 

Program  MAIN  is  never  referenced  in  a  CALL  statement. 


DATE 

CONTRL 

None 

None 
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SUBJECT: 


FORTRAN  IV  Subroutine  MATDAT 


PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


To  store  the  matrix  operating  instructions  in  a  data  file 

The  potential-flow  program  uses  the  Boeing- developed 
matrix  routines  (see  subroutine  MATRIX)  to  solve  the 
normal  velocity  matrix  equation  for  the  unknown  singu¬ 
larity  strengths  and  to  compute  the  resultant-induced 
velocities.  Subroutine  MATDAT  supplies  the  matrix 
routines  with  instructions  necessary  to  obtain  the  solu¬ 
tion.  The  first  call  to  MATDAT  stores  the  instructions 
in  a  data  file,  rewinds  the  file,  and  changes  an  indicator 
(NTL01)  from  0  to  1.  Future  calls  will  rewind  the  data 
file,  but  the  indicator  will  prevent  the  instructions  from 
being  rewritten. 

CALL  MATDAT  (NTL01,  NT7) 

Input:  NTL01  *  matrix  operating  instruction  data  file 

indicator 

NT7  *  data  file  number  of  the  matrix 
operating  Instructions 


None 

None 

None 
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SUBJECT: 

PURPOSE: 


METHOD: 


FORTRAN  IV  Subroutine  MATRIX 

To  aolve  the  normal  velocity  matrix  equation  for  the 
unknown  singularity  strengths  and  to  compute  the 
resultant-induced  velocities  at  the  boundary  points  and  off- 
body  points 

This  routine  calls  the  Boeing-developed  matrix  routines 
to  do  all  the  calculations. 

The  boundary  condition  of  parallel  flow  to  the  surface  at 
each  boundary  point  is  used  to  establish  a  matrix 
equation  for  the  unknown  strengths: 

[rau]  [•*]  -  [Bik]  <160> 

where  VN,.  *  normal  velocity  induced  at  the  ith  boundary 
1  point  by  the  j"1  unit  strength  singularity 

a,,  -  strength  of  the  singularity  that  satisfies 


the  kw  solution 


B..  «  required  normal  velocity  at  the  ith  boundary 
point  for  the  solution.  It  is  the  sum  of 
the  free- stream  normal  velocity  component 
and  the  specified  normal  velocity 

The  resultant- induced  velocities  are  given  by 

uik  =  £  vxij  •  ajk 

vllr  =  E  VY„  .  <r,.  (161) 


USAGE: 


where  VX. 


£  vz 

j 


ij  * 


velocity  components  induced  at  the 
boundary  point  or  off- body  point  by  tl 
unit  strength  singularity 


CALL  MATRIX  (IRROR) 

Output:  IRROR  =  0,  if  successful 

=  1,  if  an  error  occurred 


SUBPROGRAMS 

CALLED:  Boeing-developed  matrix  routines 

ERROR  RETURNS:  If  an  error  occurred  during  execution  of  a  particular 
matrix  instruction,  a  message  will  be  printed  by  one  of 
the  matrix  subroutines.  The  format  of  the  message 
appears  below. 

AN  ERROR  HAS  OCCURRED  IN  TL-01  - 
THE  CODE  *  nj 

A  TOTAL  OF  n2  INSTRUCTIONS  WERE  SUCCESS¬ 
FULLY  EXECUTED  PRIOR  TO  THE  ERROR. 

THE  ABOVE  COUNT  WAS  STARTED  WITH  THE 
CORE  PROGRAM  BELOW. 

THE  ERROR  OCCURRED  AT  PHYSICAL 
INSTRUCTION  NUMBER  n3. 

A  listing  of  the  matrix  instruction  currently  in  use  is 
given. 

The  final  message  is 

THE  ABOVE  ERROR  OCCURRED  IN  TL-01  WHILE 
TRYING  TO  EXECUTE  THE  FOLLOWING 
INSTRUCTION. 

n^B  ngB  ngB  n„B  ngB 

hi  the  above  messages,  nji through  ng  represent 
integers.  The  error  code  definitions  for  ni|  are 
listed  below. 


Code  Meaning 

1  The  matrices  are  nonconformable. 

2  One  of  the  matrices  is  not  square.  • 

3  The  matrix  referenced  by  114  has  illegal  dimensions. 

4  The  matrix  referenced  by  has  illegal  dimensions. 

5  The  matrix  referenced  by  114  or  ng  is  not  diagonal. 

6  A  core  program  to  be  executed  has  illegal  dimensions— 
must  be  M  x  6.  ’ 

7  The  program  attempted  to  print  a  0  x  0  matrix. 

8  Overflow  during  a  floating  point  multiply  or  add  was  attempted. 

9  Overflew  during  a  floating  point  divide  was  attempted. 
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Code  Meaning 

10  An  element  of  the  matrix  is  0  when  attempting  inversion. 

11  The  program  attempted  to  invert  a  null  matrix. 

12  An  element  of  the  matrix  is  negative  when  trying  to  obtain  square 
root  of  a  diagonal. 

13  Illegal  data  file  number  was  found. 

14  Legal  data  file  number  found,  but  it  cannot  be  used  for  data 
storage. 

15  Segmentation  loader  error  was  detected. 

16  n5  or  n6  is  zero  while  trying  to  read  instructions. 

17  Binary  tape  error  was  detected— name  check  failed. 

18  Binary  tape  error  was  detected— check  sum  error. 

19  Storage  limit  of  32, 563  words  was  exceeded. 

20  Illegal  number  in  ng  of  an  instruction  was  detected. 

21  The  program  attempted  to  partition  below  storage  location  8000 
or  above  32,563. 

22  A  position  number  was  referenced  without  having  previously 
formed  a  partition. 

23  The  program  attempted  to  store  an  instruction  in  an  illegal 
location. 

24  An  illegal  instruction  was  given  during  a  data  file  manipulation. 

25  Negative  count  in  a  cycle  instruction  was  detected. 

26  A  cycle  count  greater  than  1000  occurred. 

27  Double  precision  storage  trap  (machine  error)  occurred. 

28  Illegal  dimensions  were  read  from  a  data  file. 

29  The  program  referenced  a  storage  location  below  8000  or  above 
32,563. 

30  Negative  count  of  cells  for  clearing  was  detected. 

31  Summing  matrix  is  nonconformable  with  the  product. 

32  Inversion  error  was  detected;  the  codes  have  been  printed. 

33  04  of  a  fixed-point  increment/decrement  instruction  has  a  field 
count  greater  than  5. 

34  The  matrix  has  too  many  columns. 

35  Illegal  option  number  in  an  Inversion  instruction  was  detected. 
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Code  Meaning 

100  An  error  occurred  while  reading  one  Instruction  at  a  time  from  a 
through  data  file.  If  the  error  occurred  on  the  first  instruction,  a 

105  1,000,000  will  appear  in  ng  with  all  other  numbers  equal  to  0. 

1000  +  i  Backspace  files  error  where  1  is  the  number  of  files  remaining 
when  beginning  of  the  file  is  reached. 

2000  +  i  Forward  space  files  error  where  i  is  the  number  of  unspaced 
files. 

3000  +  i  Forward  space  matrices  error  where  i  is  the  number  of  matrices 
remaining  to  be  read. 

1,000, 000  Error  code  detected  while  loading  program  or  reading  from  data 
through  files. 

1,002,000 

2, 000, 000  During  the  search  for  position  i,  illegal  dimensions  were 
+1000  1  +  j  encountered  in  position  ]  (dimensions  of  0  x  0,  M  x  0,  or  0  x  N 
will  not  cause  fills  error). 

If  an  error  occurs,  (1)  check  the  data,  (2)  verify  the  matrix  data 
files,  and  (3)  rerun  the  case. 


RESTRICTIONS: 


Maximum  size  of  the  normal  velocity  matrix  (1.  e. ,  the 
number  of  singularities)  should  not  exceed  1200. 
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tsswatwrjww. 


SUBJECT: 

PURPOSE: 


METHOD: 


♦ 


- 


FORTRAN  IV  Subroutine  MHVGEO 

To  calculate  the  multthdTBesboe  vortex  geometric  quantities 
required  by  the  Aerodynamic  Section  of  the  program  and  to 
store  them  In  partition  form  In  data  files 

The  geometric  quantities  are  separated  Into  two  arrays: 
the  singularity-defining  quantities  array  and  the  boundary- 
point  quantities  array.  Each  multihorseshoe  vortex  has  a 
singularity-defining  quantities  array  and  a  boundary-point 
quantities  array.  The  two  arrays  are  stored  in  separate 
data  files  for  use  by  the  Aerodynamic  Section.  The  defin¬ 
ing  quantities  of  a  multihorseshoe  vortex  may  easily  exceed 
the  40  allowed  in  the  singularity-defining  quantities  array; 
consequently,  additional  multihorseshoe  vortex-defining 
quantities  arrays  are  established.  These  additional  arrays 
are  stored  in  a  maximum  of  three  additional  multihorseshoe 
vortex-defining  quantities  data  files. 

The  singularity-defining  quantities  data  file  (the  one  with 
40  quantities)  contains  multihorseBhoe  vortex-defining 
quantities  and  defining  quantities  of  thu  other  singularities 
(source  panels  and  quadrilateral  vortices).  The  source- 
panel-defining  quantities  arrays  are  stored  first,  followed 
by  the  quadrilateral  vortex  arrays  and  the  multihorseshoe 
vortex  arrays.  Each  array  (the  defining  quantities  for  one 
singularity)  is  used  by  the  Aerodynamic  Section  to  calculate 
one  column  of  the  aerodynamic  velocity  component  matrices. 
Because  of  limited  core  storage,  the  quantities  nre  stored 
as  a  number  of  partitioned  arrays;  this  storage  permits 
the  computation  of  the  aerodynamic  velocity  components  as 
partitions  of  the  entire  matrix. 

The  number  of  defining  quantities  arrays  in  each  partition 
is  determined  from  the  COMMON  array  LS,  which  contains 
the  number  of  column  elements  in  each  column  partition 
(see  subroutine  PARTIN).  The  numbers  in  the  array  are 
used  sequentially  until  the  defining  quantities  of  all  the 
singularities  are  stored  in  the  singularity-defining 
quantities  data  file. 


The  boundary-point  quantities  data  file  is  formed  in  the 
same  maimer,  except  that  the  words  "row"  and  "column" 
are  Interchanged  and  the  off-body  point  quantities,  if  any, 
are  added  to  the  data  file  immediately  following  the  multi¬ 
horseshoe  vortex  boundary-point  quantities. 

The  additional  multi  horseshoe  vortex-defining  quantities 
data  files  are  formed  in  a  special  manner  described  later. 


i 

! 
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Subroutine  MHVGEO  is  eonoerned  only  with  storing  the 
multihorseshoe  vortex  geometric  quantities  in  the  data 
files.  MHVGEO  begins  by  reading  all  the  multihorseshoe 
vortex  corner  points  of  a  network  from  the  input  data  file. 
Then  the  array(s)  of  weighting  values  is  (are)  read  and 
stored  in  a  data  file.  Subroutine  READBP,  which  reads 
in  the  specified  boundary  points,  is  called  and,  if  re¬ 
quested,  reads  file  specified  normal  velocities  of  the  net¬ 
work  vortices  and  stores  them  in  separate  data  files. 

Now,  MHVGEO  treats  each  multihorse  shoe  vortex  Indi¬ 
vidually.  First,  the  network  indexes  associated  with  the 
vortex  are  replaced  by  partition  index  numbers  (this  will 
help  in  storing  the  geometric  quantities  in  partition  form 
in  file  data  files).  Then  the  singularity -defining  quantities, 
which  consist  of  parameters  such  as  the  number  of  corner 
points  and  the  number  of  weighted  vortex  segments,  are 
calculated.  There  is  also  space  in  file  defining  quantities 
array  for  31  weighting  values.  The  coordinates  of  file 
corner  points  and  any  excess  weighting  values,  if  the 
number  of  weighted  vortex  segments  exceeds  32,  are 
stored  in  an  additional  multihorseshoe  vortex-defining 
quantities  data  file. 

A  call  to  subroutine  SBP  is  made,  which  places  the 
specified  boundary-point  quantities  in  the  boundary-point 
quantities  array.  If  the  option  to  specify  the  normal 
velocities  is  exercised,  a  call  to  subroutine  SNF  Is  made, 
which  stores  the  specified  normal  velocities  of  the  vortex 
in  the  boundary-point  quantities  array.  Finally,  the 
singularity-defining  quantities,  the  additional  multihorse¬ 
shoe  vortex-defining  quantities,  and  the  boundary-point 
quantities  are  printed  to  aid  in  the  detection  of  input  errors. 
This  procedure  is  repeated  for  every  multihorseshoe 
vortex  of  the  potential-flow  model. 

As  mentioned  previously,  the  singularity-defining  quan¬ 
tities  (not  the  additional  multihorseshoe  vortex-defining 
quantities)  and  the  boundary-point  quantities  are  stored  in 
the  core  until  the  end  of  a  partition  is  reached,  which  is 
determined  by  the  partition  index  numbers,  then  the  quan¬ 
tities  are  added  to  the  data  files.  Quantities  for  the  next 
partition  are  calculated  and  stored  in  the  core  and  also 
added  to  file  data  files.  The  additional  multihorseshoe 
vortex-defining  quantities  are  stored  in  a  data  file  as  they 
are  calculated.  There  is  an  additional  multihorseshoe 
vortex-defining  quantities  data  file  for  each  partition. 

Since  only  three  data  files  are  assigned  to  the  additional 
multihorseshoe  vortex-defining  quantities,  care  must  be 
taken  to  ensure  that  no  more  than  three  partitions  contain 
multihorseshoe  singularities. 
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The  singularity-defining  quantities  array  and  boundary- 
point  quantities  array  are  stored  in  the  labeled  COMMON 
block  COM2.  The  corner-point  coordinates  for  the 
singularities  of  a  network  are  stored  in  the  labeled 
COMMON  block  COM3. 

USAGE:  COMMON  (See  program  MAIN  for  blank  COMMON 

description.) 

COMMON/COM2/DQ(40,  50),  BP(15,  50) 

CALL  MHVGEO  (JPC,  JC2,  JCOL,  ERROR) 

Input:  NT SIN  »  input  data  file  number 

NTSOUT  *  output  data  file  number 

NT8  *  data  file  number  of  the  boundary- 
point  quantities 

NT10  =  data  file  number  of  the  singularity¬ 
defining  quantities 

NT15  *  data  file  number  of  the  weighting 
values  of  a  network 

NT  16  *  data  file  number  of  the  specified 

boundary-point  quantities  of  a  network 

NT  17  *  data  file  number  of  the  specified 

normal  velocities  of  a  network 

NT  18  i  data  file  numbers  of  the  additional 

NT19  [  =  multihorseshoe  vortex-defining 

NT20  >  quantities 

NPC  =  number  of  row  (column)*  partitions 
in  the  aerodynamic  velocity  compo¬ 
nent  matrices 

LS  =  array  containing  the  number  of  row 
(column)*  elements  in  each  row 
(column)*  partition 


*"Row"  refers  to  the  boundary-point  quantities,  and  "column"  refers  to  the 
singularity-defining  quantities. 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


DQ 


BP 


Input/ 

Output:  JPC 
JC2 

JCOL 


*  defining  quantities  for  the  last 
partition  containing  quadrilateral 
vortices.  This  array  is  used  when 
the  partition  is  only  partly  completed 
by  the  quadrilateral  vortloes 

*  boundary-point  quantities  for  the  last 
partition  containing  quadrilateral 
vortices.  This  array  is  used  when 
the  partition  is  only  partly  completed 
by  the  quadrilateral  vortices 


■  index  number  of  the  row  (column)* 
partition 

*  Index  number  of  the  row  (column)* 
element  in  the  row  (column)*  partition 

*  index  number  of  the  row  (column)* 
element  in  the  aerodynamic  velocity 
component  matrices 


Output:  MATMHV  *  total  number  of  multihorseshoe 

singularities  used  in  the  potential- 
flow  model 

NHV  *  array  containing  the  dimensions  of 
the  multihorseshoe  vortex  networks 


IRROR 


0,  routine  successful 

1,  input  error  in  the  multihorseshoe 
vortex  geometry 


♦ 


READBP 

SBP 

SNF 

If  an  error  occurs,  this  routine  returns  to  subroutine 
CONTRL,  where  an  error  message  is  written  and  execution 
is  passed  to  the  next  case. 

No  more  than  three  partitions  can  contain  multihorseshoe 
singularities,  since  only  three  data  files  are  assigned  to 
store  the  additional  multihorseshoe  vortex-defining 
quantities. 
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SUBJECT: 


FORTRAN  IV  Subroutine  OFFPT8 


PURPOSE:  To  store  the  off-body  point  coordinates  in  the  boundary- 

point  quantities  data  file 

METHOD:  An  off-body  point  is  a  specified  point  in  the  reference 

coordinate  system  where  the  flow  properties  are  computed. 
Since  off-body  points  are  used  to  compute  a  portion  of  the 
velocity  component  matrices  in  the  Aerodynamic  Section 
of  file  program  (see  subroutines  SFLOW  and  UFLOW),  they 
must  reside  in  partition  form  in  the  data  file.  This  is 
accomplished  by  subdividing  file  off-body  points  into  par¬ 
titions  of  50  points  each,  since  50  is  the  maximum  matrix 
partition  size.  For  example,  an  array  of  257  off-body 
points  is  subdivided  into  six  partitions— five  partitions 
containing  50  points  and  one  partition  containing  the  re¬ 
maining  seven  points. 

The  number  of  off-body  point  partitions  is  added  to  the 
number  of  row  partitions  previously  calculated  by  subrou¬ 
tine  PARTIN  to  give  the  total  number  of  row  partitions  in 
the  velocity  component  matrices.  The  array  of  numbers 
of  points  in  the  off-body  point  partitions  is  stored  in  the 
blank  COMMON  array  IS. 

Once  the  number  of  off-body  point  partitions  and  the 
number  of  points  in  each  partition  have  been  determined, 
OFFPTS  reads  all  the  off-body  points  from  the  input  data 
file.  The  first  partition  of  points  is  transferred  to  the 
boundary-point  array  which,  in  turn,  is  stored  in  the 
boundary-point  quantities  data  file.  This  process  con¬ 
tinues  until  all  of  the  off-body  point  partitions  are  stored 
in  the  data  file. 

This  routine  requires  very  little  additional  core  storage 
since  it  uses  previously  established  COMMON  arrays  to 
store  all  data.  Initially,  the  off-body  point  coordinates 
are  stored  in  the  labeled  COMMON  block  COM3.  Then 
the  points  are  transferred,  one  partition  at  a  time,  to  the 
boundary-point  quantities  data  file. 

USAGE:  COMMON  (See  program  MAIN  for  blank  COMMON 

description.) 

CALL  OFFPTS  (MATOFF) 

Input:  ICOM(2)  =  maximum  matrix  partition  size 

NTSIN  =  input  data  file  number 
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NTSOUT 


output  data  file  number 


NTS 


Input/ 

Output:  NPR 


Output:  US 


data,  file  number  of  the  boundary- 
point  quantities 


number  of  row  partitions  in  the 
velocity  component  matrices 

• 

array  of  numbers  of  points  in  the 
off-body  partitions.  This  array  is 
stored  immediately  below  the  array 
containing  the  number  of  elements 
in  each  row  partition  (previously 
calculated  by  subroutine  PARTIN) 


MATOFF  =  number  of  off-body  points 


♦ 


SUBPROGRAMS 

CALUED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

» 
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SUBJECT; 


FORTRAN  IV  Subroutine  PANEL 


PURPOSE: 


METHOD: 


To  calculate  the  streamline  characteristics  of  a  specified 
source  panel 


The  panel  is  identified  by  three  indices,  i,  j.  and  k,  which 
locate  the  panel  as  the  1th  position  of  the  column  of 
the  ktb  network.  Once  the  panel  is  identified,  this 
routine  determines  its  streamline  entrance  and  exit  sides. 

If  the  panel  is  on  the  periphery  of  a  network,  the  peripheral 
side(s)  is  (are)  given  as  a  special  Identification  number(s). 
Before  determining  the  entrance  and  exit  sides,  the  panel’s 
velocity  components  in  the  element  coordinate  system  are 
calculated  using  the  transformation 


Vi  =aUVx  +  a12Vy  +  a13Vz 
=  al2  Vx  +  a22  Vy  +  a23  Vz 


(162) 


where  an  a12  a^ 
a21  a22  a23 


direction  cosines  of  the  element 
coordinate  system 


V_ 


the  velocity  components  in  the 
reference  coordinate  system 


A  panel  side  is  an  entrance  side  if: 

\V  •  "d  |  <0  (163) 

6 

where  IV  •  dle  =  •  (ne+1  -  ne)  -  \  *  ((e+l  "  «e>’ 

e  *  1,  2,  3,  4 

if  nr. >  0,  the  side  is  an  exit  side. 

© 

If  the  panel  is  on  the  periphery  of  a  network,  a  special 
code  (IPERF|)  identifies  the  peripheral  side(sk. 

Initially, 

IPERFj  =0,  1  =  1,  2,  3,  4 


(164) 


i 


USAGE: 


If  j  equals  1,  side  1  is  a  peripheral  edge  (see 
Figure  72)  and 

IPERFj  =  1  (165) 

If  1  equals  M,  side  2  is  a  peripheral  edge  and 

IPERFg  =  2  (166) 

If  j  equals  N,  side  3  is  a  peripheral  edge  and 

IPERFg  »  3  (167) 

If  i  equals  1,  side  4  Is  a  peripheral  edge  and 

IPERF4  *  4  (168) 


Figure  72.  Subroutine  PANEL— Source-Panel  Network. 


COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

COMMON  /SLl/  All(lOOO),  A12(1000),  A13(1000), 
A21(1000),  A22(1000),  A23(1000),  ANX(IOOO), 

ANY(IOOO),  ANZ (1000),  Gl(1000),  G2(1000),  G3(1000), 
G4(1000),  Hl(1000),  H2(1000),  H3(1000),  H4(1000), 
XBP(IOOO),  YBP(IOOO),  ZBP(IOOO),  LPERF(IOOO), 
VFX(IOOO),  VFY(IOOO),  VFZ(IOOO) 

COMMON  /SL2/  G(5),  H(5),  VG,  VH,  IVD(4),  IPERF(4), 
VDEP,  COSTP,  E10,  Ell,  E13 

CALL  PANEL  (I,  J,  K,  L) 
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Input:  MSP  I  _  arrays  containing  dimensions  of  the 
NSP  I  source-panel  networks 

All  \ 

A12  I 

A13  v  _  arrays  of  direction  cosines  of  the 
A21  (  element  coordinate  systems 

A22  1 

A23  / 

G1 

G2  _  arrays  of  $  coordinates  of  the 
G3  source-panel  corner  points 

G4 

HI 

H2  _  arrays  of  n  coordinates  of  the 
H3  source-panel  comer  points 

H4 

LPERF  =  array  of  codes  to  indicate  panels  with 
sides  on  the  network  periphery 

=  0,  panel  not  on  network  periphery 

=  1,  panel  on  network  periphery 

VfX  )  arrays  of  the  velocity  components  of 
VFY  |  =  the  source  panels  in  the  reference 
VFZ  )  coordinate  system 

I  =  panel  position  index 

J  =  panel  column  index 

K  =  panel  network  index 

Output:  G  =  array  of  4  coordinates  of  the 
specified  source  panel 

H  =  array  of  t)  coordinates  of  the  specified 
source  panel 

VG  l  velocity  components  of  the  specified 

VH  1  source  panel  in  the  element  coordinate 
system 

IVD  =  array  identifying  the  entrance  and 

exit  sides 
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=  0,  entrance  side 
=  1,  exit  side 


IPERF  *  array  Identifying  the  peripheral 
sides  of  the  specified  panel 

=  0,  not  a  peripheral  side 

=  1,  a  peripheral  side,  where  I  is 
the  side  number 

L  =  panel  accumulative  number 


SUBPROGRAMS 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

P 


» 
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SUBJECT  FORTRAN  IV  Subroutine  PARTIN 

PURPOSE:  To  partition  a  square  matrix 

METHOD:  Given  the  size  of  a  square  matrix  and  the  maximum  parti¬ 

tion  size,  this  routine  optimally  partitions  the  matrix. 
Three  constraints  are  used:  (1)  the  number  of  partitions 
must  be  kept  as  small  as  possible,  (2)  the  partitions  must 
be  nearly  equal  in  size,  and  (3)  no  partition  can  exceed 
the  maximum  size.  For  example,  a  typical  fan-in-wing 
potential-flow  model  requiring  1093  singularities  results 
in  the  formation  of  a  1093  by  1093  aerodynamics 
velocity  matrix,  which  must  be  partitioned  into  sub¬ 
matrices  no  larger  than  50  by  50  because  of  core 
limitations.  PARTIN,  within  the  constraints  listed  above, 
partitions  the  matrix  into  484  partitions  (submatrices). 
The  484  partitions  form  a  matrix  of  22  row  partitions  by 
22  column  partitions.  The  number  of  row  elements  in 
each  row  partition  is  determined  and  stored  in  an  array. 
This  array  applies  equally  to  the  column  partitions,  since 
they  are  identical  to  the  row  partitions. 

USAGE:  COMMON  (See  program  MAIN  for  blank  COMMON 

description. ) 

CALL  PARTIN  (NSING) 

Input:  ICOM(2)  =  maximum  matrix  partition  size 

NTSOUT  =  output  data  file  number 

NSING  =  matrix  size  (also  equals  the  total 
number  of  singularities  used) 

Output:  NPR  -  number  of  row  partitions 

NPC  =  number  of  column  partitions 
(Note:  for  a  square  matrix, 

NPR  =  NPC. ) 

LS  =  array  containing  the  number  of 
row  (column)  elements  in  each 
row  (column)  partition 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  Maximum  number  of  row  (column)  partitions  is  40. 
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SUBJECT: 


FORTRAN  IV  Subroutine  PLOT 


PURPOSE: 

METHOD: 


USAGE: 

SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


To  plot  the  pressure  distributions  on  the  body 

This  is  not  an  operational  routine  since  plotting  depends 
on  the  available  plotting  facilities  and  software  at  the 
user's  installation.  The  quantities  to  be  plotted,  however, 
are  stored  on  a  data  file  where  they  may  easily  be 
retrieved  by  a  plot  routine  tailored  to  the  user’s  instal¬ 
lation.  A  partial  listing  of  the  plotting  routine  used  at 
the  Commercial  Airplane  Division  of  The  Boeing 
Company  is  provided. 

CALL  PLOT 


None 

None 

None 


SUBJECT:  FORTRAN  IV  Subroutine  QVGEO 

PURPOSE:  To  calculate  the  quadrilateral  vortex  geometric  quantities 

required  by  the  Aerodynamic  Section  of  the  program  and 
to  store  them  in  partition  form  in  data  files 

METHOD:  The  geometric  quantities  are  separated  into  two  arrays: 

the  singularity-defining  quantities  array  and  the  boundary- 
point  quantities  array.  Each  quadrilateral  vortex  has  a 
>  singularity-defining  quantities  array  and  a  boundary-point 

quantities  array.  The  two  arrays  are  stored  in  separate 
data  files  for  use  by  the  Aerodynamic  Section.  The 
singularity-defining  quantities  data  file  contains  foe  quad¬ 
rilateral  vortex-defining  quantities  and  foe  defining  quan- 
*  titles  of  the  other  singularities  (source  panels  and  multi¬ 

horseshoe  vortices).  The  source-panel-defining  quantities 
arrays  are  stored  first,  followed  by  foe  quadrilateral 
vortex  arrays  and  foe  multlborseshoe  vortex  arrays.  Each 
array  (foe  defining  quantities  for  one  singularity)  is  used 
by  the  Aerodynamic  Section  to  calculate  one  column  of  the 
aerodynamic  velocity  component  matrices.  Because  of 
limited  core  storage,  foe  quantities  are  stored  as  a  number 
of  partitioned  arrays.  This  permits  the  computation  of  the 
aerodynamic  velocity  components  as  partitions  of  the 
entire  matrix. 

The  number  of  defining  quantities  arrays  in  each  partition 
is  determined  from  the  COMMON  array  LS,  which  con¬ 
tains  the  number  of  column  elements  In  each  column 
partition  (see  subroutine  PARTIN).  The  numbers  in  the 
array  are  used  sequentially  until  the  defining  quantities 
of  all  the  singularities  are  stored  on  foe  singularity- 
defining  quantities  data  file. 

The  boundary-point  quantities  data  file  is  formed  in  the 
same  manner,  except  that  the  words  "row"  and  "column" 
are  interchanged  and  the  off-body  point  quantities,  if  any, 
are  added  to  the  data  file  immediately  following  the  multi¬ 
horseshoe  vortex  boundary-point  quantities. 

Subroutine  QVGEO  is  concerned  only  with  storing  the 
«  quadrilateral  vortex  geometric  quantities  in  the  data 

files.  QVGEO  begins  by  reading  all  foe  quadrilateral 
vortex  corner  points  of  a  network  from  the  input  data 
file.  Subroutine  READBP  is  called  and,  if  requested, 
reads  In  the  specified  boundary  points  and/or  the  specified 
«  normal  velocities  of  the  network  vortices  and  stores  them 

in  separate  data  files. 

At  this  point,  QVGEO  treats  each  vortex  individually. 
First,  the  network  indexes  associated  with  the  vortex  are 
replaced  by  partition  index  numbers  (this  will  help  in 
storing  the  geometric  quantities  in  partition  form  in  the 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  QVGEO 

To  calculate  the  quadrilateral  vortex  geometric  quantities 
required  by  the  Aerodynamic  Section  of  the  program  and 
to  store  them  in  partition  form  in  data  files 

The  geometric  quantities  are  separated  into  two  arrays: 
the  singularity-defining  quantities  array  and  the  boundary- 
point  quantities  array.  Each  quadrilateral  vortex  has  a 
singularity-definingquantities  array  and  a  boundary-point 
quantities  array.  The  two  arrays  are  stored  in  separate 
data  files  for  use  by  the  Aerodynamic  Section.  The 
singularity-defining  quantities  data  file  contains  the  quad¬ 
rilateral  vortex -defining  quantities  and  the  defining  quan¬ 
tities  of  the  other  singularities  (source  panels  and  multi¬ 
horseshoe  vertices).  The  source-panel-defining  quantities 
arrays  are  stored  first,  followed  by  the  quadrilateral 
vortex  arrays  and  the  multihorseshoe  vortex  arrays.  Each 
array  (the  defining  quantities  for  one  singularity)  is  used 
by  the  Aerodynamic  Section  to  calculate  one  column  of  the 
aerodynamic  velocity  component  matrices.  Because  of 
limited  core  storage,  the  quantities  are  stored  as  a  number 
of  partitioned  arrays.  This  permits  the  computation  of  the 
aerodynamic  velocity  components  as  partitions  of  the 
entire  matrix. 

The  number  of  defining  quantities  arrays  in  each  partition 
is  determined  from  the  COMMON  array  LS,  which  con¬ 
tains  the  number  of  column  elements  in  each  column 
partition  (see  subroutine  PARTIN).  The  numbers  in  the 
array  are  used  sequentially  until  the  defining  quantities 
of  all  the  singularities  are  stored  on  the  singularity- 
defining  quantities  data  file. 

The  boundary-point  quantities  data  file  Is  formed  in  the 
same  manner,  except  that  the  words  "row"  and  "column" 
are  interchanged  and  the  off-body  point  quantities,  if  any, 
are  added  to  the  data  file  immediately  following  the  multi¬ 
horseshoe  vortex  boundary-point  quantities. 

Subroutine  QVGEO  is  concerned  only  with  storing  the 
quadrilateral  vortex  geometric  quantities  in  the  data 
files.  QVGEO  begins  by  reading  all  the  quadrilateral 
vortex  corner  points  of  a  network  from  the  input  data 
file.  Subroutine  READBP  is  called  and,  if  requested, 
reads  in  the  specified  boundary  points  and/or  the  specified 
normal  velocities  of  the  network  vortices  and  stores  them 
in  separate  data  files. 

At  this  point,  QVGEO  treats  each  vortex  individually. 

First,  the  network  indexes  associated  with  the  vortex  are 
replaced  by  partition  index  numbers  (this  will  help  in 
storing  the  geometric  quantities  in  partition  form  in  the 
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USAGE: 


data  files).  Then  QVGEO  calls  subroutine  VORDQ,  which 
calculates  the  defining  quantities  and  the  boundary-point 
quantities  of  the  vortex.  If  the  option  to  specify  file 
boundary-point  quantities  is  exercised,  a  call  to  subroutine 
SBP  is  made,  and  the  specified  boundary-point  quantities 
are  placed  in  the  boundary-point  quantities  array.  If  the 
option  to  specify  the  normal  velocities  is  exercised,  a 
call  to  subroutine  8NF  Is  made,  and  the  specified  normal  * 

velocities  of  the  vortex  are  placed  in  the  boundary-point 
quantities  array.  Finally,  selected  geometric  properties 
of  the  vortex  are  output  to  aid  in  the  detection  of  input 
errors.  This  procedure  is  repeated  for  every  quadri¬ 
lateral  vortex  of  the  potential-flow  model.  » 

As  mentioned  previously,  the  defining  quantities  and  the 
boundary-point  quantities  of  the  quadrilateral  vortices  are 
stored  in  the  core  until  the  end  of  a  partition  is  reached 
(fills  is  determined  by  the  partition  index  numbers).  When 
this  occurs,  the  quantities  are  added  to  the  data  files. 

The  geometric  quantities  for  the  next  partition  are  calcu¬ 
lated,  stored  in  the  core,  and  finally  added  to  the  data 
files.  If  the  last  quadrilateral  vortex  does  not  complete 
a  partition  (and  it  probably  will  not),  the  geometric 
quantities  of  the  partition  remain  in  the  core  until  addi¬ 
tional  geometric  quantities  required  for  the  multihorse¬ 
shoe  vortex  singularities  (calculated  by  subroutine 
MHVGEO)  complete  the  partition.  Then  the  geometric 
quantities  of  the  two  types  of  singularities  are  added  to 
the  data  files,  where  they  are  stored  in  partition  form, 
uninterrupted  by  the  change  in  singularities. 

The  singularity-defining  quantities  array  and  boundary- 
point  array  are  stored  in  the  labeled  COMMON  block 
COM2.  The  corner-point  coordinates  for  the  singularities 
of  a  network  are  stored  in  the  labeled  COMMON  block 
COM3. 

COMMON  (See  program  MAIN  for  blank  COMMON 

description. )  *■ 

COMMON / C OM2/DQ  (40,  50),  BP(15,  50) 

CALL  QVGEO  (JPC,  JC2,  JCOL,  IRROR) 

Input:  NT  SIN  *  input  data  file  number  » 

NTSOUT  *  output  data  file  number 

NT8  *  data  file  number  of  the  boundary- 
point  quantities 
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NT10  *  data  file  number  of  the  singularity- 
defining  quantities 

NT16  »  data  file  number  of  the  specified 
boundary-point  quantities  of  a 
network 

NT  17  *  data  file  number  of  the  specified 

•  normal  velocities  of  a  network 

NPC  *  number  of  row  (column)*  partitions 
in  the  aerodynamic  velocity 
component  matrices 

* 

LS  =  array  containing  the  number  of  row 
(column)*  elements  in  each  row 
(column)*  partition 

DQ  =  defining  quantities  for  the  last 

partition  containing  source  panels. 
This  is  used  when  the  partition  is 
only  partly  completed  by  the  source 
panels 

BP  =  boundary-point  quantities  for  the 
last  partition  containing  source 
panels.  This  is  used  when  the 
partition  is  only  partly  completed 
by  the  source  panels 

Input/  JPC  *  index  number  of  the  row  (column)* 

Output:  partition 

JC2  =  index  number  of  the  row  (column)* 
element  in  the  row  (column)* 
partition 

JCOL  =  index  number  of  the  row  (column)* 
element  in  the  aerodynamic 
velocity  component  matrices 

Output:  MATQV  =  total  number  of  quadrilateral 
vortex  singularities  used  in  the 

'  potential-flow  model 

MQV  1  _  arrays  containing  the  dimensions  of 

NQV  )  ~  the  quadrilateral  vortex  networks 

*"Row"  refers  to  the  boundary- point  quantities,  and  "column”  refers  to  the 
singularity-defining  quantities. 
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DQ  =  defining  quantities  for  the  last 

partition  containing  quadrilateral 
vortices 

BP  =  boundary-point  quantities  for  the 
last  partition  containing  quadri¬ 
lateral  vortices 

IRROR  =  0,  routine  successful 

*  1,  input  error  in  quadrilateral 
vortex  geometry 

SUBPROGRAMS 

CALLED:  READBP 

VORDQ 
SBP 
SNF 

ERROR  RETURNS:  If  an  error  occurs,  this  routine  returns  to  subroutine 
CONTRL,  where  an  error  message  is  written  and 
execution  is  passed  to  the  next  case. 


RESTRICTIONS 


None 


SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  READBP 

To  read  the  specified  boundary-point  quantities  and/or 
the  specified  normal  velocities  of  a  network  of  singular¬ 
ities  and  to  store  them  in  data  files 

This  subroutine  is  used  by  subroutines  SPGEO,  QVGEO, 
and  MHVGEO  to  transfer  data  from  the  input  data  file  to 
two  data  files.  READBP  tests  the  specified  boundary- 
point  option  code  OPTBP  and  the  specified  normal 
velocity  option  code  OPTUS  to  determine  how  much  data, 
if  any,  are  to  be  transferred. 

CALL  READBP  (OPTBP,  OPTUS,  NSING,  NTSIN,  NT18, 


NT17) 

Input: 

OPTBP 

s 

specified  boundary-point  option 
code 

OPTUS 

« 

specified  normal  velocity  option 
code 

NSING 

a 

number  of  singularities  in  the 
network 

NTSIN 

* 

input  data  file  number 

NT16 

= 

data  file  number  of  the  specified 
boundary-point  quantities 

NT17 

= 

data  file  number  of  the  specified 

normal  velocities 


SUBPROGRAMS 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

SUBJECT: 


PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


ASCENT  Subroutine  READTP 
To  read  a  matrix  from  a  data  file 


The  reading  la  done  with  a  format  consistent  with 
Boeing-developed  matrix  routines. 


DIMENSION  A(JR,  N),  B(12) 


CALL  READTP  (A  (1,  1),  JR,  NAME,  M,  N,  B,  NF, 
NMT,  NTAPE,  IRROR) 


Input:  JR 

M 

N 

B 

NF 

NMT 


=  maximum  matrix  size.  This  also 
must  be  the  row  DIMENSION  state¬ 
ment  entry  for  A. 

=  number  of  rows  in  foe  matrix 

a  number  of  columns  In  the  matrix 

*  scratch  array  for  use  by  READTP 

-  number  of  end-of-file  marks  to  be 
passed  before  reading  starts.  If 
0,  no  file  spacing  takes  place. 

=  number  of  matrices  to  be  passed 
before  reading  occurs.  If  0,  no 
matrix  spacing  takes  place. 

NTAPE  -  number  of  the  data  file  containing 
foe  matrix 


Output:  A 


NAME 

IRROR 


foe  matrix  to  be  read  from  the 
data  file.  If  foils  is  not  A  (1, 1), 
foe  designated  matrix  will  be  read 
from  foe  data  file. 

Integer  name  of  the  matrix 

wrror  code 


None 


IRROR 


0,  if  successful  read 

1,  if  file  spacing  error 

2,  if  matrix  spacing  is  negative 

3,  if  matrix  spacing  error  occurs 

4,  if  check  sum  error 

5,  if  number  of  foe  data  file  containing  the 
matrix  is  wrong 


None 


* 


238 


SUBJECT: 


FORTRAN  IV  Subroutine  RHS 


PURPOSE: 

METHOD: 


To  calculate  the  elements  of  a  partition  of  the  required 
normal  velocity  matrix  [B^] 

The  required  normal  velocity  B&  is  the  sum  of  the 
free-stream  normal  velocity  component  and  the  specified 
normal  velocity  at  the  ith  boundary  point  for  the 
solution.  The  specified  normal  velocity  is  zero  unless 
specifically  changed  by  the  program  user.  An  element 
of  the  partition  is  given  by 


*i 


»z. 


)  +  U 


ik 


where  n  v 
*i  1 


<139) 


unit  normal  vector  components  at  the  1th 
boundary  point 


MX, 


free-stream  velocity  components  for  the 
k&  solution 


us..  =  specified  normal  velocity  at  the  Ith 
boundary  point  for  the  kth  solution 


Subroutine  RHS  stores  all  the  elements  of  the  partition 
in  the  array  VX,  which  appears  in  the  labeled  COMMON 
block  KOM3.  The  unit  normal  vector  components  and 
the  specified  normal  velocities  are  stored  in  the  boundary- 
point  quantities  array  BP,  which  appears  in  the  labeled 
COMMON  block  KOM2. 
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USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

COMMON  /KOM2/  DQ(40,  50),  BP(I5,  50) 

COMMON  /KOM3/  VX(50,  50),  VY(50,  50),  V2(50,  50) 
CALL  RHS  (NR2) 

Input:  NRHS  =  number  of  simultaneous  solutions 

desired 

FSVX 
FSVY 
FSVZ 


NR2  =  number  of  row  elements  in  the 
partition 

BP  -  array  of  boundary-point  quantities 

Output:  VX  =  required  normal  velocity  matrix 

partition 


None 

None 

None 


arrays  of  the  free -stream 
velocity  components, 


(V 


»x. 


°yk 


) 
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SUBJECT: 


FORTRAN  IV  Subroutine  SBP 


PURPOSE: 

METHOD: 


USAGE: 


To  store  and  print  the  specified  boundary-point  quantities 
of  a  singularity 

The  specified  boundary-point  coordinates  (x,y,z)  and/or 
unit  normal  vector  components  (nx,  by,  nz)  are  read  from 
a  data  file  (prepared  by  subroutine  READBP)  and  stored 
in  the  singularity  boundary-point  quantities  array.  All 
specified  quantities  are  defined  in  the  reference  coordinate 
system.  The  specified  boundary-point  quantities  override 
the  boundary-point  quantities  previously  calculated  by  sub¬ 
routine  SORDQ  or  VORDQ.  Except  where  overridden,  the 
boundary-point  quantities  array  remains  unchanged.  A  list 
of  the  boundary-point  quantities  array  is  given  below. 

BP(1,JC2)  «  x 

BP(2,  JC2)  =y  specified  boundary-point  coordinates 

BP(3,JC2)  =  z 


BP(4,JC2) 
BP(5,  JC2) 
BP(6,JC2) 


=  nx) 

=  n  specified  unit  normal  vector 
y  components  at  the  boundary  point 
~  nz 


BP(7,  JC2) 

to  remain  unchanged 

BP(15,JC2) 

where  JC2  denotes  the  row  element  number  of  a  partition. 

Finally,  the  specified  boundary-point  quantities  are 
printed  via  the  output  data  file.  The  boundary-point 
quantities  array  BP  is  passed  to  higher-level  sub¬ 
routines  through  a  labeled  COMMON  statement. 

COMMON  /COM2/  DQ(40,  50),  BP(15,50) 

CALL  SBP  (OPT BP,  JC2,  NT16,  NTSOUT) 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


Input:  OPTBP  =  specified  boundary-point  option  code 

JC2  =  row  element  number  of  a  partition 

NT  16  =  data  file  number  of  the  specified 

boundary-point  quantities 

NTS  OUT  =  output  data  file  number 

Output:  BP  =  boundary-point  quantities  array 
(only  locations  overridden  by  the 
specified  quantities  are  output) 


None 

None 

None 
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SUBJECT: 


FORTRAN  IV  Subroutine  SEARCH 


PURPOSE: 

METHOD: 


To  search  the  periphery  of  the  source-panel  networks  for 
a  panel  with  an  acceptable  entrance  side  for  the  streamline 

The  selection  of  a  new  entrance  panel  involves  a  series 
of  tolerance  tests.  If  an  acceptable  panel  is  not  found,  the 
streamline  is  terminated. 


Before  conducting  the  tests,  the  exit  point  of  the  previous 
panel  (last  panel  the  streamline  successfully  crossed)  is 
transformed  to  the  reference  coordinate  system  by 


*h  =  V  allp  {P*  +  *21p  V 
J'h“Jrp'-X5P*  +  *22n’,l” 

r  r 

=  V  ai3p  «p,  +  >23P  V 


where 


p  I  boundary-point  coordinates  of  the 
y  >  =  previous  panel  in  the  reference 
p  I  coordinate  system 


direction  cosines  of  the  previous 
panel  in  the  element  coordinate 
system 


streamline  exit  point  coordinates  of 
the  previous  panel  in  the  element 
coordinate  system 


The  series  of  tolerance  tests  begin  by  comparing  the  dis¬ 
tance  between  the  previous  panel  exit  point  and  the 
peripheral  panel  boundary  point.  Failure  to  pass  any  test 
eliminates  the  panel. 


Test  1 


|*  '  *h|  <  €13  <I71> 

where  €  ig  equals  0. 8t  (t  Is  the  longest  source-panel 
diagonal). 


Test  2 


(172) 


Alter  passing  these  tests,  the  approximate  streamline 
entrance  point  of  the  peripheral  panel  in  the  element 
coordinate  system  is  computed  as 


*h  =  *ll(xh~x,+*12  frh-y)  +  a13<zh"z) 

^h  =  a21  t*h  “  X>  +  a22  ^h  "  y)  +  a23  <zh  “  z)  <173> 

*h  “  a31  <*h  -  x>  +  a32  *h  ”  y>  +  a33  (zh  '  Z) 


where  au  a12  a13 

a21  *22  *23 
*31  *32  *33 > 


direction  cosines  of  the 
peripheral  panel  in  the  element 
coordinate  system 


x  )  boundary-point  coordinates  of 

y  >  =  the  peripheral  panel  in  the 

I  reference  coordinate  system 
z  * 


Now  the  sides  on  the  periphery  of  a  network  are  tested. 
The  particular  test  depends  on  the  panel's  three  indices, 
i,  j,  and  k,  which  locate  the  panel  as  the  Ith  position  of 
the  j**1  column  of  the  k*“  network. 

Test  3 


This  test  is  conducted  only  if  j  *  1;  i.  e. ,  side  one  is  on  the 
periphery. 

\  +  0*01de  <174) 
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■nd  da/de  £  1  and  t^/dg  £  1 


where  d,  -  ^  -  Ip2  ♦  (,_  -  ~  t* 

\  =  ,/«„  -  y2  ♦  <v  y  *  «h2 

de  *  V«1  •  {/  *  «1 '  ’/ 


If  this  test  is  successful,  the  entrance  side  number  and  the 
fractional  distance  of  the  streamline  starting  point  along 
the  side  are  established  (e  *  1  and  d/de  *  da/de)»  and  the 
subroutine  proceeds  to  Test  7. 

Test  4 


This  test  is  conducted  only  if  i=M;  i.  e. ,  side  two  is  on  the 
periphery.  The  test  is  Identical  to  Test  3  except  that 
is  replaced  by  l2,  $2  by  l3>  tjj  by  v2>  and  V2  by% 

Test  5 


This  test  is  conducted  only  if  j  *  N;  i.  e.,  side  three  is  on 
the  periphery.  The  test  is  identical  to  Test  3  except 
that  $i  is  replaced  by  {3,  by  $4,  »7j  by  V3,  and 
V2  by  V4- 

Test  6 


This  test  is  conducted  only  if  i  »  1;  i.  e.,  side  four  is  on 
the  periphery.  The  test  is  identical  to  Test  3  except : 
that  (1  is  replaced  by  $4,  (2  by  Hi  by  jj4,  and 
V2  by  Ur 

Test  7 


The  final  test  is  to  ensure  that  the  peripheral  panel  is  not 
the  previous  panel;  i.  e., 

1*1P 

j  *  Jp  (175) 

k  *  k 

P 

where  p  denotes  the  previous  panel. 
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USAGE: 


If  the  peripheral  paaei  successfully  passes  all  the  required 
tests,  it  is  accepted  as  the  eatrance  panel  for  the 
streamline. 


COMMON  (See  program  MAIN  for  blanlc  COMMON 
description.) 

COMMON  /SL1/  (See  subroutine  PANEL.) 
COMMON  /SL2/  (See  subroutine  PANEL. ) 


INTEGER  EE,  EX 

CALL  SEARCH  (I, 
DDE,  ITERM) 

Input:  NETSP- 

MSP  ) 

nsp  r 

All  \ 
A12  I 
A13  I 
A21  ( 
A22  >* 
A23  ( 
ANX  1 
ANY  I 
ANZ  / 

XBP  ) 
YBP  }« 
ZBP  ) 

LPERF* 


G3  I 
G4  ’ 

H1 

H2 

H3 

H4 


J,  K,  L,  EX,  GX,  HX,  H,  JJ,  KK,  EE, 

number  of  source-panel  networks 

arrays  containing  the  dimensions  of 
the  source-panel  networks 


arrays  of  the  direction  cosines  of 
the  source  panels  in  the  element 
coordinate  system 


arrays  of  the  source-panel  boundary 
points  in  the  reference  coordinate 
system 

array  of  codes  to  indicate  a  panel  on 
the  periphery  of  a  network 

=  0,  not  a  peripheral  panel 

=  1,  a  peripheral  panel 

arrays  of  {  coordinates  of  the  source- 
panel  corner  points  in  the  element 
coordinate  system 


arrays  of  rj  coordinates  of  the  source- 
panel  corner  points  in  the  element 
coordinate  system 


246 


E13  *  the  boundary-point  tolerance,  *13 


I  *  position  index  of  the  previous  source 
panel 

J  *  column  index  of  the  previous  source 
panel 

K  *  network  index  of  the  previous  source 
panel 

L  =  source-panel  accumulative  number  of 
the  previous  panel 

EX  =  exit  side  number  of  the  previous  panel 

GX  *  4  coordinate  of  the  streamline  exit 
point  of  the  previous  panel 

HX  «  rj  coordinate  of  the  streamline  exit 
point  of  the  previous  panel 

Output:  n  «  position  index  of  the  entrance  panel 

JJ  =  column  index  of  the  entrance  panel 

KK  *  network  index  of  the  entrance  panel 

EE  *  entrance  side  number  of  the  panel 

DDE  *  fractional  distance  of  the  streamline 
starting  point  along  the  entrance 
side  of  the  panel 

ITERM  =  0,  streamline  did  not  terminate;  search ! 
was  successful 

-  5,  streamline  terminated;  search 
was  unsuccessful 


SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  The  previous  panel  and  the  peripheral  panels  must  be 

four-sided. 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  SFLOW 

To  calculate  the  symmetric  flow  velocity  component 
matrices  flVXtj),  (VYjj),  and  tVZyJ),  and  to  store  them 
in  data  Hies  * 

A  potential-flow  model  in  a  sym  metric  flow  Held  is 
analysed  by  specifying  only  the  right  half  of  die  model. 

The  specified  side  is  referred  to  as  die  basic  side,  and 
its  image  across  die  x-z  plane  is  referred  to  as  the 
reflected  side.  A  matrix  element  is  composed  of  the  velocity 
components  at  a  boundary  point  on  the  basic  side  due  to 
singularities  of  unit  strength  of  the  basic  side  and  of  the 
reflected  side.  For  example,  the  x  component  of  velocity 
is  given  by 

^ij  =  ^ij  (basic)  +  ^ij  (reflected)  (176) 

An  element  of  the  (VXm)  matrix  is  the  x  component  of 
velocity  induced  at  the  1th  boundary  point  due  to  the  jth 
unit  strength  singularity.  Correspondingly,  elements  in 
the  IVYij)  and  (VZijl  matrices  contain  the  y  and  z  com¬ 
ponents  of  the  velocity.  Because  of  computer  memory 
size  (core)  iimltadons,  the  velocity  component  matrices 
must  be  partitioned.  The  maximum  matrix  partition  size 
was  chosen  to  allow  storage  of  three  partitions  (one  from 
each  matrix)  in  the  core  at  the  same  time.  The  scheme 
used  to  compute  the  matrices  is  shown  in  Figure  73. 


SOURCE-PANEL  SINGULARITIES 

- QUADRILATERAL  VORTEX  SINGULARITIES 

^ NIULTTMORSESMOE  vortex  singularities 

ADDITIONAL  NULTIHORSESHOE 
!  \  VORTEX-DEFINING  QUANTITIES 

l  i  DATA  r»LES 

SOURCE-PANEL 
BOUNDARY  POINTS  ' 

QUADRILATERAL 

VORTEX 

BOUNDARY  POINTS 

multihorseshoe 

VORTEX 

BOUNDARY  POINTS 

OFF  BODY 
POINTS 

1 

2 

i » 

i 

'it 

1 

T 

'^•SINGULARITY -DEFINING 
QUANTITIES 

OATA  FILE 

^—PARTITION 
r  NUMBER 

t 

; 

S  8 

1 

i 

9i 

l 

10 

11 

1 2 

f 

! 13 

"is-’ 

.A. 

.  JL. 

u. 

1 

.»L. 

1 

A. 

21 

72 

In 

1 

?4i 

i 

ft 

ft 

21 

1 

!  a 

i 

ft' 

30 

31 

3: 

In 

»: 

3S 

t-eOUHOMWOM?  QUANTITIES  OATA  flit 

Figure  73.  Subroutine  SFLOW — Velocity  Component  Matrix. 
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Initially,  the  singularity-defining  quantities  (DQ)  data  file, 
the  additional  multihorseshoe  vortex-defining  quantities 
(MHVDQ)  data  files,  and  the  boundary-point  quantities 
(BPQ)  data  file  are  rewound.  Then  the  BPQ  data  file  is 
read  until  the  boundary-point  quantities  for  the  first  row  of 
partitions  are  in  the  core,  and  the  DQ  data  file  is  read 
until  the  singularity-defining  quantities  for  the  first  column 
of  partitions  are  also  in  the  core.  Now  the  velocity  com¬ 
ponent  elements  (VXij,  VYtj,  VZy)  of  the  first  partition 
(first  row,  first  column)  are  calculated,  stored  in  the  core, 
and  then.transferred  to  data  files.  Then  the  defining 
quantities  for  the  next  column  of  partitions  are  read,  and 
the  elements  of  the  second  partition  (first  row,  second 
column)  are  calculated.  This  continues  for  the  remaining 
column  partitions  in  the  first  row.  When  a  partition  con¬ 
taining  multihorseshoe  vortex  elements  is  encountered, 
an  MHVDQ  data  file  is  read  in  addition  to  the  DQ  data  file. 

After  all  the  elements  of  the  first  row  of  partitions  are 
stored  in  the  data  files,  the  DQ  data  file  and  the  MHVDQ 
data  files  are  rewound.  Then  the  BPQ  data  file  is  read 
until  the  boundary-point  quantities  for  the  second  row  of 
partitions  are  in  the  core.  Now  the  DQ  data  file  is  read 
just  as  before,  and  the  elements  of  the  second  row  of 
partitions  are  calculated  and  stored  in  data  files.  This 
process  continues  until  the  elements  of  the  last  row  of 
partitions  are  stored  in  data  files. 

Before  computing  VXij,  VYjj>  and  VZjj,  subroutine 
SFLOW  determines  the  type  of  singularity.  If  the 
singularity  is  a  source  panel,  SFLOW  calls  subroutine 
SOREQ,  which  calculates  the  velocity  components  due  to 
the  basic  side  of  the  model.  The  influence  of  the  reflected 
side  is  calculated  by  changing  the  sign  of  the  y  coordinate 
of  the  centroid  and  the  signs  of  the  y  components  of  the 
direction  cosines. 

y0  =  -y0 
a12  =  "a12 
a22  =  ”*22 
a31  =  "a31 
a33  =  ”a33 


(177) 


(178) 


I. 
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Then  SOREQ  is  called  to  calculate  the  velocity  com¬ 
ponents  due  to  the  reflected  side.  The  velocity 
components  are 

^ij  *  VXij  (basic)  +  (reflected) 

^ij  "  ^iJ  (basic)  +  ^ij  (reflected)  <179> 
VZ1J  =  VZiJ  (basic)  +  VZy  (reflected) 

If  the  singularity  is  a  quadrilateral  vortex,  SFLOW 
calls  subroutine  VOREQ,  which  calculates  the  velocity 
components  due  to  the  basic  and  reflected  finite  line 
vortices.  Subroutine  VOREQ  is  called  four  times, 
once  for  each  side  of  the  quadrilateral  (see  Figure  74). 


Figure  74.  Subroutine  SFLOW— Quadrilateral  Vortex. 


Then  SFLOW  adds  the  four  parts  of  each  velocity 
component  to  obtain  the  velocity  components. 


VXy 

=  V\ 

+ 

VX*J2 

+ 

V\ 

^ij 

+ 

"Y 

+ 

\  * 

VY 

«4 

(180) 

• 

VZiJ 

*  V\ 

+ 

VY 

+ 

V\  * 

VZU4 

If  the  singularity  is  a  multihorssshoe  vortex,  SFLOW 
calls  subroutine  VOREQ  to  calculate  the  velocity 
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components  due  to  the  basic  and  reflected  line  vortices 
<see  Figure  75). 


LINE  VORTEX  NUMBERS  OF  A 
MULTIHORSESHOE  VORTEX 
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p 

where  WAp  =  ^  W, 

W.  -  the  weighting  factor  of  the  center  line 
1  vortex 


the  velocity  components  of  the  p^1  left-side 
line  vortex 


The  velocity  components  due  to  the  center  line  vortices 
are  given  by 


MS 

-  E  WlVx. 

1=1  1 

MS 

■  E  wlvy, 

!»1  1 


E  wivz, 

i=i  1 


(182) 


the  velocity  .of  the  1^  center  line 
vortex 


The  velocity  components  due  to  the  right-side  line  vortices 
are  given  by 


♦ 


VX 


RS 


MS-1 

M-l 

E 

WApVx„  +  WAMS 

E 

p=i 

P 

p=MS 
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(183) 


VY 


RS 


VZ 


MS-1 

M-l 

E 

WApY  +  WAMS  E 

p»i 

P  P?MS 

MS-1 

M-l 

E 

wv*  +wams  E 

p-i 

p  p=MS 

RS 


The  velocity  components  due  to  the  multihorseshoe  vortex 
are  found  by  summing  the  three  contributions 


VXy  =  ^LS  +  +  ^RS 

VYy  =  VYLS+Vyc  +  VYRS 

"  ^LS  +  ^C  +  VZRS 


(184) 


The  velocity  component  matrices  are  stored  in  the  labeled 
COMMON  block  KOM3  until  transferred  to  separate  data  files 
by  fubroutine  WRTETP.  A  description  of  KOM3  follows. 

COMMON  /KOM3/  VX(50,  50),  VY(50,  50),  VZ(50,  50) 

where  VX  =  array  of  one  IVX^l  partition 

VY  =  array  of  one  [VY^l  partition 

VZ  "  array  of  one  {VZ^l  partition 


When  the  singularity -defining  quantities  and  boundary-point 
quantities  are  read  into  the  core  from  data  files,  they  are 
also  stored  in  labeled  COMMON  blocks.  The  DQ  and  BPQ 
arrays  are  stored  in  the  COMMON  block  KOM2  and  the 
MHVDQ  arrays  are  stored  in  block  KOM4,  Descriptions 
of  these  blocks  follow. 


COMMON  /KOM2/  DQ(40,  50),  BP(15,  50) 

where  DQ  =  array  of  singularity-defining  quantities  for 
one  column  of  partitions 

BP  =  array  of  boundary-point  quantities  for  one 
row  of  partitions 
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USAGE: 


COMMON  /KOM4/  X(100),  Y(100),  Z(100),  WT(50), 

WA(50),  VSX(50),  VSY<50),  VSZ(50) 

Arrays  of  corner-point  coordinates  of 
one  multihorseshoe  vortex 

*  weighting  values  of  the  center  line 
vortices  of  one  multihorseshoe  vortex 

arrays  used  for  temporary  storage  of  the 
s  velocity  components  of  the  right-side, 
center  line,  and  left-side  vortices  of  one 
multihorseshoe  vortex 

COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

CALL  SFLOW 


ICOM(2) 

«  maximum  matrix  partition  size 

NT8 

«  data  file  number  of  the  boundary- 
point  quantities 

NT  10 

*  data  file  number  of  the  singularity- 
defining  quantities 

NT11 

*  data  file  number  of  the  velocity 
component  matrix  (VXijJ 

NT12 

=  data  file  number  of  the  velocity 
component  matrix  [VYyl 

NT13 

-  data  file  number  of  the  velocity 
component  matrix  (VZ^l 

NT  18  ) 
NT19  [ 
NT20  J 

_  data  file  numbers  of  the  additional 
~  multihorseshoe  vortex-defining 
quantities 

NPR 

=  number  of  row  partitions  in  the 
velocity  component  matrices 

NPC 

=  number  of  column  partitions  in 
the  velocity  component  matrices 

LS 

=  array  containing  the  number  of 
row  (column)  elements  in  each 
row  (column)  partition 

where 


X 

Y 

Z 


WT 
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SUBPROGRAMS 
CALLED:  SOREQ 

VOREQ 
WRTETP 

ERROR  RETURNS:  None 
RESTRICTIONS:  None 
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SUBJECT; 


FORTRAN  IV  Subroutine  8  FLOW  1 


PURPOSE: 


To  calculate  the  symmetric  flow  velocity  components 
Induced  at  the  streamline  points  by  the  singularities 


METHOD: 


The  induced  velocity  components  at  the  i™  streamline 
point  for  the  solution  In  matrix  notation  are 


M'N  hk 

vikj’ "«]  [»jk 

f'jk 


where  VX, 


velocity  components  Induced  at  the  il 
*  streamline  point  due  to  the  unit 
strength  singularity 


<r  -  strength  of  the  1th  singularity 
for  the  k*“  solution 

A  potential-flow  model  in  a  symmetric  flow  field  is 
analyzed  by  specifying  only  the  right  half  of  the  model. 

The  specified  side  is  referred  to  as  the  basic  side,  and  its 
image  across  the  x-z  plane  is  referred  to  as  the  reflected 
side.  The  velocity  components  VXy,  VYu,  and  VZm  are 
composed  of  contributions  due  to  singularities  of  unit 
strength  of  the  basic  side  and  of  the  reflected  side.  The 
scheme  used  to  compute  the  elements  of  the  velocity 
component  matrices  is  shown  in  Figure  76. 


■  SOURCE-PANEL  SINGULARITIES 
\  -^—QUADRILATERAL  VORTEX  SINGULARITIES 

-MULTIHORSESHOE  VORTEX  SINGULARITIES 


ADDITIONAL  MULTIHORSESHOE 
VORTEX-DEFINING  QUANTITIES 
DATA  FILES 


STREAMLINE 

POINTS 


f  2  !  3  4  j  5 

l _ L  *  * 


SINGULARITY-DEFINING  QUANTITIES 
DATA  FILE 


Figure  76.  Subroutine  SFLOW1— Streamline  Velocity  Component  Matrix. 
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The  streamline  points  are  Input  through  the  labeled 
COMMON  block  SL3.  Initially,  the  singularity-defining 
quantities  (DQ)  data  file  and  the  additional  multihorseshoe 
vortex-defining  quantities  (MHVDQ)  data  files  are  rewound. 

The  DQ  data  file  is  read  until  the  singularity-defining 
quantities  for  the  first  partition  are  in  the  core.  Then  the 
velocity  components  VXjj.  VYjj,  and  VZij  of  the  first 
partition  are  calculated.  Then  the  singularity-defining 
quantities  for  the  next  partition  are  read  in,  and  the  velocity 
components  of  the  second  partition  are  calculated.  This 
process  continues  for  the  remaining  partitions.  When  a 
partition  containing  multihorseshoe  vortex  singularities  is 
encountered,  an  MHVDQ  data  file  Is  read  in  addition  to  the 
regular  DQ  data  file. 

Before  computing  VXh,  VYij,  and  VZij,  subroutine SFLOW1 
determines  the  type  of  the  singularity.  If  the  singularity 
is  a  source  panel,  SFLOW1  calls  subroutine  SOREQ,  which 
calculates  the  velocity  components  due  to  the  basic  side  of 
the  model.  The  influence  of  the  reflected  side  is  calculated 
by  changing  the  sign  of  the  y  coordinate  of  the  centroid  and 
the  sign  of  the  y  components  of  the  direction  cosines. 


y0  =  ~y  o 
a12  *  "a12 
a22  =  "a22 
a31  11  "a31 
a33  =  _a33 


(186) 


(187) 


Then  SOREQ  is  called  to  calculate  the  velocity  components 
due  to  the  reflected  side.  The  velocity  components  are 


=  VXij  (basic)  +  VXij  (reflected) 
^ij  =  ^ij  (basic)  +  VYij  (reflected) 
VZij  =  VZij  (basic)  +  VZij  (reflected) 


(188) 


If  the  singularity  is  a  quadrilateral  vortex,  SFLOW1  calls 
subroutine  VOREQ,  which  calculates  the  velocity  compo¬ 
nents  due  to  the  basic  and  reflected  finite  line  vortices. 
VOREQ  is  called  four  times,  once  for  each  side  of  the 
quadrilateral  (see  Figure  77). 


9 
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Figure  77.  Subroutine  8 FLOW1— Quadrilateral  Vortex. 

SFLOW1  adds  the  four  parts  of  each  velocity  component  to 
obtain  the  velocity  components. 

VX..  »  VX„  +  VX,.  +  VX.,  +  VX„ 

*J  *J2  V3  *14 

"li  *  *  VYU2  +  ^i),  +  ^  <IM> 


VZU  ■  v\  *  v\ 


+  vz,.  +  vz 


ij. 


If  the  singularity  is  a  multihorseshoe  vortex,  SFLOW1 
calls  subroutine  VOREQ  to  calculate  the  velocity  compo¬ 
nents  due  to  the  basic  and  reflected  line  vortices  (see 
Figure  78). 


LETT-SIDE 
LINE  VORTEX 


9 


4 


Figure  78.  Subroutine  SFLOW1— Multihorseshoe  Vortex. 
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The  velocity  components  due  to  die  left-side  line  vortices 
are  given  by 


MS-1 

M 

VXls  * 

-  E 

P=1 

w\\ 

-WAM8 

E 

p=MS 

V 

XP 

MS-1 

M 

V^LS  * 

-* 

WVyp 

*wams 

E 

p*M8 

V  (190) 
yP 

MS-1 

» 

M 

VZls  * 

"  & 

WAV 

-wams 

E 

p=MS 

% 

i w* 

the  weighting  value  of  the  Ith  center  line 
vortex 


the  velocity  components  of  the  pth  left-side 
line  vortex 


The  velocity  components  due  to  the  center  line  vortices  are 
given  by 


vx„ 

MS 

=  z 

W4V 

c 

& 

1  xt 

MS 

-  E 

1=1 

w,v 

1  yI 

(191) 

vzc 

MS 

=  E 

i=i 

wf\ 

the  velocity  components  of  the  I^1  center 
line  vortex 
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USAGE: 


The  velocity 

components  due 

to  the  right-side 

are  given  by 

MS-1 

M 

VXRS  " 

5 

wap\ 

+  WAMS 

P& 

MS-1 

M 

"ss  - 

£ 

wVyp 

+wams 

E 

p-MS 

MS-1 

M 

raHS  * 

E 

p-i 

wap\ 

+  wams 

E 

p*MS 

(192) 


The  velocity  components  due  to  the  multihorseshoe  vortex 
are  found  by  summing  the  three  contributions 


vxtj  *  yx1£^wxc^vxR8 

^1)  -  vylb  +  vyc+vyrs  .  <193> 

V2tJ  .  VZLB  +  VZC+VZR8  . 

When  the  singularity -defining  quantities  for  a  partition  are 
read  In,  they  are  stored  In  labeled  COMMON  blocks.  The 
DQ  array  1s  stored  In  the  COMMON  block  KOM2,  and  the 
MHVDQ  array  Is  stored  In  the  COMMON  block  KOM4.  Both 
COMMON  blocks  are  described  In  subroutine  SFLOW.  The 
singularity  strength  matrix,  which  Is  stored  one  partition  at 
a  time  In  foe  labeled  COMMON  block  SL5,  Is  read  Into  the 
core  by  foe  matrix  routine  READTP.  The  [Ui^],  {viU,  and 
(wlk)  matrices  are  also  stored  In  foe  COMMON  bloclc  SL5. 

COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 


COMMON  /SL3/  (See  subroutine  AEROSL. ) 
COMMON  /SL5/  (See  subroutine  AEROSL. ) 
CALL  SFLOW1  (KSOL,  MSL) 


* 


260 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 


Input:  ICOM(2) 

NT1 


NT  10 


NT  18  ) 
NT19  j 
NT20  ) 

NPC 


LS 


XBO  ) 
YBO  | 

ZBO  J 

KSOL 

MSL 

Output:  VXBO ) 

VYBO 
VZBO* 


SOREQ 

VOREQ 

READTP 

None 


maxim  urn  matrix  partition  size 

data  file  number  of  the  singularity 
strength  sutrfx  [»jgl 

data  file  number  of  the  singularity- 
defining  quantities 

data  file  number  of  the  additional 
multihorseshoe  vortex-defining 
quantities 

number  of  partitions  in  the  fa,.] 
matrix  * 


array  containing  the  number  of 
row  elements  in  each  partition 

arrays  of  streamline  point 
coordinates 

solution  number  (the  value  of  k) 
number  of  streamline  points 

arrays  of  the  induced  velocity 
components  (u,  v,  w) 


RESTRICTIONS: 


None 


SUBJECT: 

’PURPOSE: 

•METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  SN7 

To  store  and  print  the  specified  normal  velocities  at  a 
singularity  boundary  point 


(U#1,  U#^ —  where#  is  the  number  of  simultaneous 


aotatlons  deslred)  are  reatffrom  a  data  tire  prepared  tty 
subrdutine  READBP  and  stored  in  the  boundary -point 
quantities  array.  The  specified  normal  velocities  override 
the  boundary-point  quantities  (aero's)  previously  calculated 
by  subroutine  SORDQ  or  VORDQ.  Except  where  overridden, 
the  boundary-point  quantities  array  remains  unchanged.  A 
list  of  the  boundary-point  quantities  array  is  given  below. 


\ 


BP(1,  JC2) 

to 

BP(10,JC2) 

BP(U,JC2) 

BP(12,JC2) 

*< 

BP(13,  JC2) 

•< 

4 

BP(14,  JC2) 

“U. 

| 

BP(1S,JC2) 

> 


/ 


remain  imrffiyH 


specified  normal  velocities  at 
the  boundary  point  (maximum 
of  5) 


where  JC2  denotes  the  row  element  number  of  a  partition. 

Finally,  the  speoified  normal  velocities  are  printed  via  the 
output  data  file.  Hie  boundary-point  quantities  array, 

BP,  is  passed  to  higher-level  subroutines  through  a 
labeled  COMMON  statement. 


COMMON  /COM2/  DQ(40,60),  BP(15,50) 

CALL  SNF  (OPTUS,  JC2,  NT17,  NTSOUT) 

Input:  OPTUS  =  specified  normal  velocity  option  code 

JC2  =  row  element  number  of  a  partition 

NT17  =  data  file  number,  of  the  specified 

normal  velocities 


NTSOUT  =  output  data  file  number 


9 


« 
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Output:  BP  *  boundary-point  quantities  array  jmfy 
locations  overridden  bjr  the  specified 
normal  velocities  are  output) 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  None 
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SUBJECT: 


FORTRAN  IV  Subroutine  SORDQ 


PURPOSE: 

METHOD: 


To  calculate  the  defining  quantities  and  boundary-point 
quantities  of  a  source-panel  singularity 

A  typical  input  source-panel  is  shown  in  Figure  79. 


Figure  79.  Subroutine  SORDQ— Source  Panel. 


Other  allowable  panel  shapes  are  shown  in  Figure  80. 


z 


Figure  80.  Subroutine  SORDQ— Triangular  Panels. 


All  geometry  is  defined  in  the  reference  coordinate  system. 
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The  defining  quantities  are  used  in  the  Aerodynamic  Section 
to  compute  the  velocity  components  induced  at  aome  point  in 
space  due  to  the  source  panel.  The  velocity  components  are 
computed  in  a  coordinate  system  in  the  plane  of  the  source 
panel  element  and  then  transformed  to  the  reference 
coordinate  system.  SORDQ's  first  function  is  to  form  a 
plane  surface  element  from  the  four  Input  corner  points. 
This  is  accomplished  by  constructing  two  diagonal  vectors* 
the  vector  Tj  from  point  1  to  point  3  and  the  vector  T2 
from  point  2  to  point  4  (see  Figure  81). 


2 


Figure  81.  Subroutine  SORDQ —  Source-Panel  Diagonals. 


In  general,  these  vectors  are  not  orthogonal.  Their 
components  are 


T  = 
Alx 

s  X3  “  X1 

Tly  =  y3  '  yl  Tlz  ' 

N 

CO 

1 

M 

11 

<3 

H 

:  X4  "  X2 

T2y  =  y4  '  y2  T2z  * 

z,  -  z 
4 

(194) 

he  YfictorN  is  taken 

as  the  cross  product  of  these; 

i.e,, 

[  =  T2x 

Tj.  Its  components  are 

11 

55* 

T2yTlz  ‘ 

T2zTly 

Ny 

T2zT1z  - 

T2xTlz 

(195) 

Nz  '  Vly  -  Vh 


The  components  of  the  unit  normal  vector,  n,  are  given  by 


N 

N 


(196) 
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where  N 


The  plane  of  the  element  la  now  completely  determined  If 
a  point  In  this  plane  is  specified.  The  average  center  of 
the  source  panel  is  such  a  point.  Its  coordinates  are 

V  -  ?  (*1  +  *2  +  *3  +  *4) 

V  -  i  (?! +  y2  +  y3  *  yt  )  (197) 

V  -  i  (‘i  +  *2  +  S) 

Now  the  input  corner  points  are  projected  into  the  plane  of 

the  panel  dement  along  the  normal  vector.  The  resulting 
points  are  the  corner  points  of  the  planar  panel.  The 
signed  distance  of  the  ktt  input  corner  point,  from  the 
plane  is 

wiwk)  *nj  (y~-yk)+n.  I'w-'k 

All  the  d^'s  have  the  same  magnitude  due  to  the  manner  in 
which  the  planar  panel  was  generated;  those  for  points  1 
and  S  have  one  sign,  and  those  for  points  2  and  4  have  the 
opposite  sign.  Now  the  corner-point  coordinates  of  the 
planar  source  panel  replace  the  input  corner  points. 

\  -  \  *  "A  \ 

yk  -  yk  +  >  ,  k  «  1,2,S,4  <1»8> 

*k  ■  *k  +  "A  / 

Now  the  element  coordinate  system,  which  requires  the 
components  of  three  mutually  perpendicular  unit  vectors, 
is  constructed.  The  three  unit  vectors  are:  (1)  the 
vector  t^,  which  is  a  unit  vector  parallel  to  the  (  axis 
of  the  element  coordinate  system;  (2)  the  unit  vector  to, 
which  is  parallel  to  the  rj  axis;  and  (3)  the  unit  vector  n, 
which  is  parallel  to  the  f  axis.  The  vector  is  the 
vector  Ti  divided  by  its  length. 
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»0“ 


V 


4 


t,_  = 


t,„  = 


Tlx 

lx  “ 

T1 

III 

:iy  = 

T1 

Tlz 

lz  = 

T1 

e  Tl 

t,_  = 


* 


(200) 


The  vector  t2  is  defined  to  be  n  x  t^.  Its  components  are 

*2*  ‘  Vlx  '  “«*1, 

*2y  *  Vtt  '  Vu  *“> 

*2z  *  Vly  '  “y'lx 

Direction  cosines  of  the  element  coordinate  system  are 

needed  to  transform  the  coordinates  of  points  and  the 
components  of  vectors  from  one  coordinate  system  to  the 
other.  Symbolically,  the  direction  cosines  are  given  by 


all 

a12 

a13 

a21 

a22 

a23 

a31 

a32 

a33 

where 

all  = 

lIx 

a12  = 

V 

a13  = 

llz 

a21  = 

*2x 

a22  = 

V 

a23  = 

l2z 

a31 

nx 

a32  = 

n 

y 

a33  = 

nz 
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The  direction  cosines  are  ueed  to  transform  the  ooraer 
points  into  the  element  coordinate  system  based  on  the 
average  center  point  as  origin.  The  coordinates  of  the 
corner  points  are  denoted  fay  It*,  ,  and  gv*  in  the 
element  coordinate  system,  where  k*  i,  2,  3,  4. 


Because  the  corner  points  lie  in  the  plane  of  the  element, 
tic*  =  0.  Also,  because  of  the  orientation  of  the  vector, 
the  coordinate  t|j*  and  the  coordinate  TJ3*  are  equal.  The 
transformation  equations  are 


V  *  *ll(VXM  )  +  *12(yk'M*  *u(‘k'I4 

Vk-1^,3,4 

V-  *2l(V\c)+  *22(yk-y«  )+  ■»(**-*«#  W 


The  origin  of  the  element  coordinate  system  is  now  tians- 
ferred  to  the  centroid  of  the  source  panel  (see  Figure  82). 


t 

V 


Figure  82.  Subroutine  SORDQ—  Source-Panel  Centroid. 
The  coordinates  of  the  centroid  are 


VKK-’i*)] 


@03) 


Since  the  centroid  is  the  origin  of  the  element  coordinate 
system,  its  coordinates  in  the  reference  coordinate  system 
are  required  In  the  transformations  between  coordinate 
systems.  The  coordinates  are  given  fay 


*o  -  xac  *  *ll{o  +  *2l”o 
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a 


*0  *  V  +*12*o*  Vo  <*» 

*0  “  ‘m^S  Wo 

By  definition,  the  boundary  point  of  the  panel  la  located 
at  the  centroid. 

The  coordinates  of  the  corner  points  In  the  element 
coordinate  system  are 


«*  -  «k#"  «0 
\  "*  *k  -  *0 


,  k  *  1,2, 3,4 


The  area  of  the  source  panel  is 

A  =  1/2  (ly-  (ij2  -  ij4)  (206) 

and  the  second  moments  are 

1i  =  12  ^3  "  *1*  [^1  ^4  "  V  ^1  +  *3  +  *2  +  V 

♦(fa-Vdi**  h  «3+  «3*> 

♦  «2  ^2  <«1  +  *3  +  *2*  -  *4  *4  <*1  +  *3  +  {4)]<2°7) 

hn  *  24  <«3 "  «i>  [2  «4  l'i  '  %2>  - 2  *2  <*i2  -  V> 
♦  <«!  +  {3)  (V2  ’  *4)  (2\  +  \  +  V]  ^ 

x*  “  w  «3“{i> (vv[(vvV 

-  nl  <*>2  +  V  •  *2  T,4](?09> 

Some  additional  quantities  necessary  when  the  exact 
formulation  of  the  velocity  component  is  required  are 
the  lengths  of  the  panel  sides. 


=  V  («2  -  +  (H2  -  Hj)* 


d,  =  y<€3-  «2)2  +  (q9  -  n,)2 


'3  '2; 


d9  =  y  ({4-  «3)2  +  -  %)2 


'4  3' 


d4  =  /<*  1  “  {4)2  +  ^1  -  V2 


t 


and  the  slope*  of  the  sides 


m. 


m. 


m. 


iri 

JhlUi 

h  *  *2 

n4  -  ”3 


^4  "  ^3 

V^4 

V^4 


1 


<2111  * 


If  an  Infinite  or  near-infinite  slope  is  encountered, 

A{k  <  0.000001 ,  k-  1,  2,  3,  4  (212) 

the  slope  is  not  computed  and  an  indicator  is  turned  "on," 
IS  =  1. 


The  indicator  is  checked  in  the  evaluation  of  Vg  (see 
subroutine  SOREQ)  to  exclude  the  infinite  slope  side(s) 
from  the  computations. 


A  list  of  the  source-panel-defining  quantities  array 
follows: 


DQ(1,JC2) 
DQ(2,  JC2) 
DQ(3,  JC2) 
DQ(4,  JC2) 
DQ(5,  JC2) 
DQ(6,  JC2) 
DQ(7,  JC2) 
DQ(8,JC2) 
DQ(9,  JC2) 


*11 

*12 

*13 

*21 

*22 

*23 

*31 

*32 

*33 


direction  cosines  of  the  element 
coordinate  system 


270 
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* 


USAGE: 


BP(11,  JC2) 
to 

BP(15,JC2) 


(normal  Telocity  at  the  boundary 
point#.  Tbeae  can  be  overridden 
by  the  user  of  the  program  (see 
subroutine  SNF). 


where  JC2  now  denotes  the  row  element  number  of  a 
partition. 


The  singularity-defining  quantities  array,  DQ,  and 
boundary-point  quantities  array,  BP,  are  passed  to  other 
subroutines  through  labeled  COMMON  block  COM2. 

COMMON/ COM2/DQ(40, 50),  BP(15, 50) 

DIMENSION  X(4),  Y(4),  Z(4) 


CALL  SORDQ  (JC2,  X,  Y,  Z,  Dl) 


Input:  JC2 


row  (column)  element  number  of  a 
partition 


X  )  arrays  of  the  coordinates  of  the  source- 
Y  /  =  panel  corner  points  in  the  reference 
Z  j  coordinate  system 


Output:  DQ  =  singularity-defining  quantities  array 


BP  =  boundary -point  quantities  array 


Dl  «  the  distance,  dj,  between  the  input 

corner  point  1  of  the  source  panel  and 
its  projection  into  the  planar  approxi¬ 
mation  of  the  panel 


SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  The  source  panel  must  have  a  finite  area. 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  SOREQ 

To  calculate  the  velocity  components  induced  at  a  point  in 
•pace  by  a  source-panel  singularity  of  unit  strength 

The  velocity  components  are  functions  of  geometrical 
quantities  and  depend  on  the  coordinates  of  the  point  in 
•pace  (x,y,  s)  and  on  the  orientation  of  the  planar  source 
panel.  All  geometry  is  defined  in  the  reference  coordinate 
system  (see  Figure  83). 


Figure  83.  Subroutine  SOREQ— Influence  of  a  Source  Panel. 

The  velocity  components  are  calculated  in  the  local 
coordinate  system  (| of  die  source  panel  and  then 
transformed  to  the  reference  coordinate  system  (see 
Figure  84).  (  and  ij  are  in  the  plane  of  the  panel  and 
g  is  outward  from  the  panel. 


Figure  84.  Subroutine  SOREQ—  Local  Coordinate  System. 


4 


* 
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This  is  called  the  element  coordinate  system.  The 
direction  cosines  of  the  element  coordinate  system 


all 

al2 

a13 

a21 

a22 

a23 

a31 

a32 

a33 

and  the  coordinates  of  the  panel  centroid  (Xo,y0,*o)  in 
the  reference  coordinate  system  are  used  to  transform 
the  coordinates  from  one  system  to  the  other  (see  sub¬ 
routine  SORDQ  for  a  detailed  description).  The  source - 
panel  geometric  quantities  necessary  to  calculate  the 
velocity  components  are  stored  in  the  labeled  COMMON 
singularity-defining  quantities  array  DQ.  These  quantities 
are  calculated  in  the  Geometric  Section  of  the  program  by 
subroutine  SORDQ.  The  coordinates  of  the  point  p  are 
given  in  the  reference  coordinate  system  and  are  trans¬ 
formed  to  the  element  coordinate  system  by 

|  *  an  (x  -  x0)  +  a12  <y  -  y0)  +  alg  (z  -  zQ) 

n  =  a21  (x  -  X0)  +  a22  (y  -  y0)  +  a2g  (z  -  zQ)  (213) 

a31  <x  *  xo>  +  a32  ty  ‘  yo>  +  a33  <z  "  zo) 

The  exact  formulas  for  the  velocity  components  are 


(214) 


275 


W  =  tan 


1-(5v!,).^(!ivi| 


where  ^  =  \U2~hf  +  ^2  "  ni^2 

d2  =  V ^3  "  $2^  +  ^3  ~  V 

03  -  V(«4  -  «3>2  +  <”4  -  "3>2 

d4  *  V«1  -  «4>2  +  <”l  -  V2 

V3~V2 


mi~  h-h 


ran  - 


2  *3  '  *2 


mn  = 


V’a 


3 


m,  = 


4 ’TF5 


and 


- 


«k  -  f2  +  «-«k)2 

\  -  o»-V«-«k> 


k=l,2,3,4 
k  =  1,2, 3,4 
k  =  1,2, 3, 4 


The  defining  quantities  d^,  d2,  d3,  d4,  mj,  m2,  m3,  and 
m4  are  calculated  in  subroutine  SORDQ  but  are  repeated 
above  for  clarity. 
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<r 


The  velocity  component,  Vg ,  depends  on  the  slopes  of  the 
panel  edges;  hence,  the  slopes  must  be  checked  prior  to  its 
calculation.  This  is  accomplished  by  testing  a  previously 
defined  code,  IS.  If  IS  =  0,  Vg  is  calculated  as  given  above. 
However,  IS  =  1  indicates  that  one  or  more  of  the  slopes 
are  near  infinite  and  that  the  velocity  contribution  due  to 
these  sides  is  not  computed.  Initially,  Vg  is  set  equal  to 
zero.  If 

|«2  “  <  0.000001  <215) 

the  slope  of  side  1  is  near  infinite, and  its  contribution  to 
the  velocity  component  is  not  calculated.  If  on  the  other 
hand 

1*2  “  *il  *  °*  000001  (216) 

the  contribution  is  computed  by 


Similarly,  the  contributions  due  to  sides  2,  3,  and  4  are 
computed.  The  final  velocity  component  is  the  sum  of 
the  individual  contributions 

V*  "  Vil  +  Vt2  +  Vt3  +  VU  <218> 

A  special  form  of  the  equation  for  Vg  is  required  if 
t  <  0. 000001.  If  the  point  p  is  outside  the  panel,  Vg  =  0. 0. 

If  the  point  is  inside  the  panel,  Vg  =  2 1. 

The  exact  formulas  to  represent  the  velocity  due  to  a 
source  panel  are  not  used  when  point  p  is  some  distance 
from  the  singularity.  If 


2.45  i-p<40 


where  rQ  =  (x  -  xq)2  +  (y  -  yQ)2  +  (z  -  zQ)2 

t  =  longest  source-panel  diagonal, 

then  velocity  components  are  approximated  using  a 
multipole  expansion  about  the  centroid. 
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v{  .  -  [aW|  + 1  Ijw{{{  + 1{,»{{„  +  I  V»{„] 

v-l  -  '  [A*,  +  J  I{w{{,  *  I{,w|)n  ♦ 1 I,.,,,]  (220) 

Vf  -  -  [Awt  4  £  I{w{{{  4  4  \  y-wt] 

where 

2  ^3  "  ^2  ‘V 


w(  -  -  fro‘3 
»,  -  -  or/3 


'(  *  12  (i3  *  {1>  ['l  (i4  "  V  <li  +  t3  +  t2  +  (4)  + 

(Og  "  O4)  (tj  +  *1^3  +  ^3  )  + 

^2**2  ^1 +  ^3  +  ^  "  ^4^4  ^1  +  ^3  +^J 

‘{0  -  ii  «3  -  «1>  [2*4  Cl2  -  'i>  -  2  *2  <"l2  -  V>  + 
({j  +  {3)  (\  “  ^4)  +  ^2  + 

h’  h  <S3  -«l'  <”2  -  ’l4>[<'ll  *  ”2  +  V2  - 

’ll  <12  *  14)  -  O2O4] 

w{{{  -  3{  (3p  +  10(2)  ro'7 

W«1  =  33  P  ro'? 
wvn  -  35  ’  ro'7 


* 
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USAGE: 


wnnn  *  3»j  (3q  +  lOtj  )  r 


w ttt  =  p  r 


wm  *  "15^trc 


wnnt  =  3t  «  ro’ 
p  =  n2  + 12  -  4*2 

q  =  *2  +  t2  _4T)2 

The  defining  quantities  A,  Ig,  Igrj,  and  1^  are  calculated  in 
subroutine  SORDQ  but  are  repeated  above  for  clarity, 
r 

If  -7—  >  4. 0,  the  velocity  components  are  evaluated 
directly  in  tike  reference  coordinate  system  by  the  well- 
known  point  source  formulas. 

VX  .  Ar0-3  (x  -  x0) 


VY  =  A  rQ  ty-yo) 


VZ  =  A  ro'°  (z  -  zo) 

If  the  velocity  components  were  calculated  in  the  element 
coordinate  system,  they  are  transformed  to  the  reference 
coordinate  system  using  the  direction  cosines. 

VX  =  an  Vg  +  a21  VV  +  a31  V* 


VY  = 


a12  ? 


^  +  a22  Vn  +  a32  Vt 


VZ  =  »i3  Vg  +  a23  Vq  +  a33  Vj. 

COMMON  /KOM2/  DQ<40,50),  BP(15,50) 

CALL  SOREQ  (IROW,  JCOL,  ISYM,  X,  Y,  Z,  VX,  VY,  VZ) 


9, 


Input: 

DQ 

*  singularity -defining  quantities  array 

matrix  element  row  and  column 

IROW  1 

[  m  numbers.  If  IROW  =  JCOL.  is 

JCOL 

f  “  set  equal  to  2*  because  the  point  p 
is  inside  the  source  panel 

ISYM 

=  a  code  used  to  ensure  that  V*  *  2 * 
if  IROW  »  JCOL  and  the  flow  is 
symmetrical 

?  1 

reference  system  coordinates  of  the 

z  ! 

point  in  space  p 

Output: 

VX  ] 

VY  ' 

1  _  velocity  components  in  the  reference 

V  1 

vz  ! 

|  coordinate  system 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  None 


t 
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SUBJECT:  FORTRAN  IV  Subroutine  SPGEO 

PURPOSE:  To  calculate  the  source  panel  geometric  quantities  required 

by  the  Aerodynamic  Section  of  the  program  and  to  store 
them  in  partition  form  in  data  files 

METHOD:  The  geometric  quantities  are  separated  into  two  arrays: 

the  singularity-defining  quantities  array  and  the  boundary- 
point  quantities  array.  Each  source  panel  has  a  singularity* 
defining  quantities  array  and  a  boundary-point  quantities 
array.  The  two  arrays  are  stored  in  separate  data  files  for 
use  by  the  Aerodynamic  Section.  The  singularity-defining 
quantities  data  file  contains  the  source-panel-deflning  quan¬ 
tities  and  the  defining  quantities  of  the  other  singularities 
(quadrilateral  vortices  and  multihorseshoe  vortices).  The 
source-panel  arrays  are  stored  first,  followed  by  the  quad¬ 
rilateral  vortex  arrays  and  the  multihorseshoe  vortex  arrays. 
Each  array  (the  defining  quantities  for  one  singularity)  is 
used  by  the  Aerodynamic  Section  to  calculate  one  column  of 
the  aerodynamic  velocity  components  matrices.  Because  of 
limited  core  storage,  the  quantities  are  stored  as  a  number 
of  partitioned  arrays.  This  permits  the  computation  of  the 
aerodynamic  velocity  components  as  partitions  of  the  entire 
matrix. 

The  number  of  defining  quantities  arrays  in  each  partition  is 
determined  from  the  COMMON  array  LS,  which  contains  the 
number  of  column  elements  in  each  column  partition  (see 
subroutine  PARTIN).  The  numbers  in  the  array  are  used 
sequentially  until  the  defining  quantities  of  all  the  singular¬ 
ities  are  stored  in  the  singularity-defining  quantities  data  file. 

The  boundary-point  quantities  data  file  is  formed  in  the  same 
manner  except  that  the  words  "row"  and  "column"  are  inter¬ 
changed  and  the  off-body  point  quantities,  if  any,  are  added 
to  the  data  file  immediately  following  the  multihorseshoe 
vortex  boundary-point  quantities. 

Subroutine  SPGEO  is  concerned  only  with  storing  the  source- 
panel  geometric  quantities  in  the  data  files.  SPGEO  begins 
by  reading  all  the  source-panel  corner  points  of  a  network 
from  the  input  data  file.  Subroutine  READBP  is  called  and, 
if  requested,  reads  in  the  specified  normal  velocities  of  the 
network  panels  and  stores  them  in  a  scratch  data  file. 

Now,  SPGEO  treats  each  panel  individually.  First,  the 
network  indices  associated  with  the  panel  are  replaced  by 
partition  index  numbers  (this  \yill  help  in  storing  the  geo¬ 
metric  quantities  in  partition  form  in  the  data  files).  Then 
SPGEO  calls  subroutine  SORDQ,  which  calculates  the  defin¬ 
ing  quantities  of  the  panel.  If  the  option  to  specify  the  normal 
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USAGE: 


velocity  is  exercised,  s  call  to  subroutine  SNF  is  made,  and 
the  specified  normal  velocities  of  the  panel  are  placed  in  die 
boundary-point  quantities  array.  Finally,  selected  geometric 
properties  of  the  panel  are  output  to  aid  in  die  detect  on  of 
the  input  errors.  This  prooedure  is  repeated  for  every 
source  panel  of  die  potential-flow  model 

As  mentioned  previously,  the  defining  quantities  and  the 
boundary-point  quantities  of  die  source  panels  are  stored 
in  die  core  until  the  end  of  a  partition  is  reached  (this  con¬ 
dition  is  determined  by  the  partition  Index  numbers).  When 
thie  occurs,  the  quantities  are  added  to  the  data  files.  The 
geometric  quantities  for  the  next  partition  are  calculated, 
stored  in  the  core,  and  finally  added  to  die  data  files.  If  the 
last  source  panel  does  not  complete  a  partition  (and  it 
probably  will  not),  the  geometric  quantifies  of  the  partition 
remain  in  the  core  until  additional  geometric  quantifies 
required  for  die  quadrilateral  vortices  (calculated  by  sub¬ 
routine  QVGEO)  complete  the  partition.  Then  the  geometric 
quantifies  of  the  two  types  of  singularities  are  placed  in 
partitioned  form  on  data  files  uninterrupted  by  the  change  in 
singularities. 

The  singularity-defining  quantities  array  and  boundary-point 
array  are  stored  in  the  labeled  COMMON  block  COM2.  The 
corner-point  coordinates  for  the  singularities  of  a  network 
are  stored  in  the  labeled  COMMON  block  COM3. 

COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 

COMMON  /COM2/  DQ(40,  50),  BP(15,  50) 

CALL  SPGEO  (JPC,  JC2,  JCOL,  IRROR) 


NT  SIN 

=  input  data  file  number 

NTSOUT 

*  output  data  file  number 

NT8 

*  data  file  number  of  the  boundary-point 
quantities 

* 

NT  10 

*  data  file  number  of  the  singularity¬ 
defining  quantities 

NT  17 

*  data  file  number  of  the  specified 
normal  velocities  of  a  network 

t* 

NPC 

*  number  of  row  (column)*  partitions  in 
the  aerodynamic  velocity  components 
matrices 
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US 

*  array  containing  the  number  of  row 
(column)*  elements  in  each  row 
(column)*  partition 

Input/ 

Output: 

JPC 

*  index  number  of  the  row  (column)* 
partition 

JC2 

*  index  number  of  the  row  (column)* 
element  in  the  row  (column)*  partition 

JCOL 

«  index  number  of  the  row  (column)* 
element  in  the  aerodynamic  velocity 
components  matrices 

Output: 

COM(3) 

=  longest  source-panel  diagonal 

MATSP 

=  total  number  of  source-panel  singu¬ 
larities  used  in  the  potential-flow  model 

MSP  l 
NSP  f 

_  arrays  containing  the  dimensions  of 
the  source-panel  networks 

IRROR  -  0,  routine  successful 

=  1,  input  error  in  source-panel  geometry 

DQ  =  defining  quantities  for  the  last  partition 
containing  source  panels 

BP  =  boundary-point  quantities  for  the  last 
partition  containing  source  panels 

SUBPROGRAMS 
CALLED:  READBP 

SORDQ 
SNF 

ERROR  RETURNS:  If  an  error  occurs,  this  routine  returns  to  subroutine 

CONTRL  where  an  error  message  is  written  and  executed 
if  passed  to  the  next  case. 

RESTRICTIONS:  None 


’'"'Row"  refers  to  the  boundary-point  quantities,  and  "column"  refers  to  the 
singularity-defining  quantities. 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  STREAM 

To  trace  streamline*  over  the  portion  of  the  potential-flow 
model  represented  by  source  panels 

Before  tracing  any  streamlines,  this  routine  reads  the 
required  source  -panel-defining  quantities  from  a  data  file 
and  stores  them  in  the  labeled  COMMON  block  SL1.  Then 
every  source  panel  on  the  periphery  of  a  network  is  identified 
by  a  code  that  is  stored  in  the  LPERF  array.  For  each 
streamline,  additional  parameters  are  read  from  foe  input 
data  files.  These  parameters  are:  foe  solution  desired, 
the  starting  panel  indices,  foe  entrance  side,  the  fractional 
distance  along  the  entrance  side  of  foe  starting  point,  the 
maximum  length  of  foe  streamline,  and  the  fraction  of  foe 
longest  source -panel  diagonal  used  to  form  foe  tolerance 
«10. 

Subroutine  READTP  is  called  to  read  foe  singularity-induced 
velocity  components  from  data  files.  The  resultant  velocity 
components  at  each  source  panel  are  computed  by  adding 
foe  free-stream  velocity  component  to  the  induced 
components 


where  f  *  foe  source-panel  accumulative  number 
k  *  foe  solution  number 

The  resultant  velocity  components  of  the  source  panels  are 
also  stored  in  foe  labeled  COMMON  block  SL1. 

Before  a  panel  is  traversed,  its  streamline  characteristics 
are  determined  by  calling  subroutine  PANEL.  After  the 
characteristics  are  determined,  foe  entrance  point  of  foe 
panel  in  foe  element  coordinate  system  is  calculated  by 


* 


a 
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* 


where 


coordinates  of  the  panel  corner  points 
of  the  entrance  side 


e  «  number  of  the  entrance  side 

d/d  *  fractional  distance  along  the  entrance 
side  of  the  starting  point 


The  unit  normal  vector  components  of  the  streamline  in 
the  element  coordinate  system  are  given  by 


b  «  "Six 

x  b~ 

m 

n  V  -  n  V 
u  _z  x  x  z 

b, - 6— 

„ 

z  b 

m 


(225) 


where 


b  *  Jin  V  -nV)2+(nV  -nV)2  + 
m  V  y  i  z  y'  1  z  x  x  z’ 


"x 


unit  normal  vector  components  of  the 
panel  being  traversed 


The  panel  entrance  side  is  examined,  and  if  the  stream¬ 
line  cannot  enter  this  side,  subroutine  FAIL  is  called  to 
determine  the  reason.  If  the  streamline  can  enter  this 
side,  the  d/de  values  are  computed  fci  each  exit  side 
of  the  panel: 


d/de 


,  %  <*E  -  *e>  ’  <*E  -  V 

vn  <«•♦!  -  «e>  -  v«  <VrV 


(226) 
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When  a  side  for  which  0  <  d/d*,<  1  la  found,  the 
values  of  d/dg  and  e  are  used  to  determine  the  stream¬ 
line  exit  pc4nti  i.e., 


{  „±  <wv+*. 

x  <*• 

*  (22?) 
vf  <vi  -  v + 

X  de 


The  length  of  the  streamline  across  the  panel  is 
computed  as 

a#  *  M +  {vv2 


(228) 


¥ 


♦ 


And  the  accumulative  length  of  the  streamline  is 


8  *  s  + As 

P 


(229) 


where  Sp  is  the  accumulative  length  through  the  previous 
panels.  the  accumulative  length  exceeds  the  maximum 
specified  length,  the  streamline  is  terminated.  The 
streamline  length  to  the  midpoint  of  the  panel  is  given  by 


*s  *  Bp  +  0.5-As 


(230) 


The  midpoint  coordinates  are 


X8  "  x  +  all  *8  *  a21  ”, 


y,  =  y* ai2  *8 +  a22 


Z8  ’  2  +  a13  •*  a23  ”, 


(231) 


where 


11 

12 


_  coordinates  of  the  panel  boundary  points 
In  the  reference  coordinate  system 


directicm  cosines  of  the  point  in  the 
element  coordinate  system 


-  0.5  •  «E  +*x) 
*  0.5  .  (nE 
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USAGE: 


The  coordinates  of  the  streamline  points  used  to  determine 
the  streamline  flow  properties  (see  subroutine  AER06L) 
are  given  by 

*bo  '  J,  +  £101>, 

ybo  *  y  +  'lo  bv  f232) 

‘bo  -  *  +  £io»2 
where  =  e  •  t 

and  (  -  a  function  specified  by  the  user 

t  =  longest  source-panel  diagonal 

After  the  panel  has  been  traversed,  the  entrance  side  of 
the  next  panel  is  identified.  If  the  streamline  has  reached 
the  periphery  of  a  network,  subroutine  SEARCH  is 
called  to  determine  the  entrance  side  of  the  next  panel. 

When  a  streamline  is  terminated,  subroutine  ENDSL  is 
called  to  print  out  the  cause  of  termination.  Then  sub¬ 
routine  AEROSL  is  called  to  calculate  the  flow  properties 
along  the  streamline. 

The  streamline  parameters  of  the  next  streamline  are 
read  from  the  input  data  file  and  the  process  is  repeated. 


COMMON  (See  program  MAIN  for  blank  COMMON 
description. ) 


CALL  STREAM 
Input:  ICOM(2) « 
ICOM(8)  = 
COM(3)  = 
NT2 


maximum  matrix  partition  size 

number  of  streamlines 

longest  source-panel  diagonal 

data  file  number  of  the  x  component 
of  the  induced  velocity,  u 


NTS  =  data  file  number  of  the  y  component 
of  the  induced  velocity,  v 


NT4  =  data  file  number  of  the  z  component 
of  the  induced  velocity,  w 

NT SIN  *  input  data  file  number 

NTSOUT  ■  output  data  file  number 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


NT10  =  data  file  number  of  the  singularity¬ 
defining  quantities 


NPC  =  number  of  column  partitions  in  the 
velocity  component  matrices 

IB  =  array  containing  number  of  velocity 
components  in  each  column  partition 

NETSP  =  number  of  source-panel  networks 

MSP  |  _  arrays  containing  the  dimensions 

NSP  j  of  the  source-panel  networks 

NRSH  -  number  of  simultaneous  solutions 


FSVX ) 
FSVY  [ 
FSVZ  ) 


_  arrays  of  the  free-stream  velocity 


components,  V  ,  V_ 


,  and  V 

y»  mi 


* 


READTP 

PANEL 

FAIL 

ENDSL 

SEARCH 

AEROSL 

Tracing  of  the  steamlines  is  terminated  if  the  subroutine 
is  unable  to  read  the  defining  quantities  data  file. 

All  source  panels  traversed  and  panels  on  the  network 
periphery  must  be  four-sided. 
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SUBJECT:  FORTRAN  IV  Subroutine  UFLOW 

PURPOSE:  To  calculate  the  unsymmetric  flow  velocity  component 

matrices  [VXjj] ,  [VYy] ,  and  [VZ|j] ,  and  to  store  them  in 
data  files 

METHOD:  A  potential-flow  model  in  an  unsymmetric  flow  field  is 

analyzed  by  specifying  the  entire  model. 

An  element  of  the  [VXjj]  matrix  is  the  x  component 
of  velocity  induced  at  the  i*k  boundary  point  due  to  the  1th 
unit  strength  singularity.  Corresponding  elements  in  the 
[VYij]  and  {VZyJ  matrices  contain  the  y  and  z  compo¬ 
nents  of  the  velocity.  Because  of  computer  memory  size 
(core)  limitations,  the  velocity  component  matrices  must 
be  partitioned.  The  maximum  matrix  partition  size  was 
chosen  to  allow  storage  of  three  partitions  (one  from  each 
matrix)  in  the  core  at  the  same  time.  The  scheme  used  to 
compute  the  matrices  is  shown  in  Figure  85. 
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Initially,  the  singularity- defining  quantities  (DQ)  data  file, 
the  additional  multihorsesboe  vortex- defining  quantities 
(MHVDQ)  data  files,  and  the  boundary-point  quantities 
(BPQ)  data  file  are  rewound.  Then  the  BPQ  data  file  is 
read  until  the  boundary-point  quantities  for  the  first  row 
of  partitions  are  In  the  core,  and  the  DQ  data  file  is  read 
until  the  singularity- defining  quantities  for  the  first  column 
of  partitions  are  also  In  the  core.  Now  the  velocity  compo¬ 
nent  elements  (VXfj,  Wu,  VZjj)  of  the  first  partition  (first 
row,  first  column)  are  calculated,  stored  in  the  core,  and 
then  transferred  to  data  files .  The  defining  quantities  for 
the  next  column  of  partitions  are  read,  and  the  elements 
of  the  second  partition  (first  row,  second  column)  are 
calculated.  This  continues  for  the  remaining  column 
partitions  In  the  first  row.  When  a  partition  containing 
multihorseshoe  vortex  elements  is  encountered,  an 
MHVDQ  data  file  is  read  in  addition  to  the  DQ  data  file. 

After  all  the  elements  of  the  first  row  of  partitions  are 
stored  In  the  data  files,  the  DQ  data  file  and  the  MHVDQ 
data  files  are  rewound.  Then  the  BPQ  data  file  is  read 
until  the  boundary-point  quantities  for  the  second  row  of 
partitions  are  in  the  core.  Now  the  DQ  data  file  is  read 
just  as  before,  and  the  elements  of  the  second  row  of 
partitions  are  calculated  and  stored  in  data  files .  This 
continues  until  the  elements  of  the  last  row  of  partitions 
are  stored  in  data  files. 

Before  computing  VXjj,  VYy,  and  VZjj,  subroutine  UFLOW 
determines  the  type  of  singularity.  U  the  singularity  is 
a  source  panel,  UFLOW  calls  subroutine  SOREQ,  which 
calculates  the  velocity  components. 

If  the  singularity  is  a  quadrilateral  vortex,  UFLOW  calls 
subroutine  VOREQ,  which  calculates  the  velocity  compo¬ 
nents  of  a  finite  line  vortex.  VOREQ  is  called  four  times, 
once  for  each  side  of  the  quadrilateral  (see  Figure  86). 


QUADRILATERAL  VORTEX 


Figure  86.  Subroutine  UFLOW— Quadrilateral  Vortex. 


Then  UFLOW  adds  the  four  parts  of  each  velocity  component 
to  obtain  the  velocity  components. 


I 

4 

i 


i 


vx..  =  vx,{  +  vxlt  +  vx..  +  vx 


ij  ij  1  ij,  T  T~ij 


+  ^ij,  +  +  <233) 


vzij  =  vzyi  +  VZiJ9  +  V2iJ,  *  vz 


If  the  singularity  is  a  multihorse  shoe  vortex,  UFLOW 
calls  subroutine  VOREQ  to  calculate  the  velocity  components 
of  the  line  vortices  (see  Figure  87). 


UNE  VORTEX  NUMBERS  OF  A 
MULTIHORSESHOE  VORTEX 


Figure  87.  Subroutine  UFLOW — MuJtlhorseshoe  Vortex. 
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The  velocity  component*  die  to  the  left-aide  line  yortlce* 
eve  given  by 

MS-1  U 

5.  \ 

MS-1  u 

WA  V  -WA^  £  V  (234) 

P-!  P  yP  MS  p  -  M8  yp 

MS-1  II 

VZLS  *  -  £  WA  V  .  w.  £  v 

p.l  P  «„  ™p*fcs  «p 

where  WA  -  £  w. 

P  I«1  1 

W|  *  the  weighting  vnhie  of  the  I**1  center  n««» 
vortex 


the  velocity  component*  of  the  pth  left- 


yp  j  tide  line  vortex 


The  velocity  component*  due  to  the  center  line  vortlce* 
ere  given  by 


4Uft 

vxcm  £  w  •  v 

v  1  » 1  1  x! 

MS 

MS 


where  V 


y,  l  -  tbe  velocity  component*  of  the  Ith  center 
*  /  line  vortex 
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USAGE: 


The  velocity  components  due  to  the  right-side  line  vortices 
sre  given  by 


MS-1  M 

VXM«  £  WA  Vx  +WA  E  V 
-  D  *  MSp*MS  *p 


»  p^l  "P  ^p 


MS-1  M 

VYrs  =  £  WA  Vv  +  WA  £  V  (236) 

HS  pt^i  p  yp  msp  =  ms  yp 


MS-1  M 

vzM-  E  WA  V  *WA  y  V 
p  *  1  P  p  -  MS  p 


The  velocity  components  due  to  the  multihorseshoe  vortex 
are  found  by  summing  the  three  contributions 


VXy  =  VX^  +  VXC  +  VXRS 

wu  =  +  +  ^RS  <237) 

VZy  =  VZM  +  VZC  +  vZrs 

UFLOW  uses  the  labeled  COMMON  block  KOM3  to  store 
the  matrix  partitions.  The  singularity  geometric  quantities 
are  stored  in  the  labeled  COMMON  block  KOM2  and  the 
additional  multihorseshoe  geometric  quantities  are  stored 
in  the  labeled  COMMON  block  KOM4.  The  three  COMMON 
blocks  are  described  in  subroutine  SFLOW. 


COMMON  (See  program  MAIN  for  blank  COMMON 
description.) 

CALL  UFLOW 


ICOM(2) 

=  maximum  matrix  partition  size 

NT8 

=  data  file  number  of  the  boundary- 
point  quantities 

NT10 

=  data  file  number  of  the  singularity¬ 
defining  quantities 

NTH 

=  data  file  number  of  the  velocity 
component  matrix  [  VXjj  ] 

NT12 

=  data  file  number  of  the  velocity 
component  matrix  [VYjj] 

•?r 
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NT  13 

*  data  file  number  of  the  velocity 
component  matrix  [VZ^J 

NT18 

NT19 

NT20 

data  file  numbers  of  the  additional 
*  multihorseshoe  vortex -defining 
quantities 

NPR 

»  number  of  row  partitions  in  the 
velocity  component  matrices 

NPC 

3  number  of  column  partitions  in 
the  velocity  component  matrices 

LS 

*  array  containing  the  number  of 
row  (column)  elements  in  each 
row  (column)  partition 

SUBPROGRAMS 
CALLED:  SOREQ 

VOREQ 
WRTETP 

ERROR  RETURNS:  None 


RESTRICTIONS:  None 


SUBJECT: 


FORTRAN  IV  Subroutine  UFLOW1 


PURPOSE: 

METHOD: 


To  calculate  the  unsym  metric  flow  velocity  components 
induced  at  the  streamline  points  by  the  singularities 


The  induced  velocity  components  at  the  itb  streamline 
point  for  the  kth  solution  in  matrix  notation  are 


M 

■  Kl 

kl 

kl 

-  Kl 

kl 

(238) 

kl 

*  K! 

kl 

where  VX, 


ij 


VY. 


VZ 


U 


"ik 


velocity  components  Induced  at  the  ith 
=  streamline  point  due  to  the  jtb  unit 
strength  singularity 


=  strength  of  the  Jtb  singularity  for  the 
k*b  solution 


A  potential-flow  model  in  an  unsymmetric  flow  field  is 
analyzed  by  specifying  the  entire  model.  The  scheme 
used  to  compute  the  elements  of  the  velocity  component 
matrices  is  shown  in  Figure  88. 


Figure  88.  Subroutine  U FLOW  1— Streamline  Velocity  Component  Matrix. 


The  streamline  points  are  input  through  the  labeled 
COMMON  block  SL3.  Initially,  the  singularity-defining 
quantities  (DQ)  data  file  and  the  additional  multihorseshoe 
vortex-defining  quantities  (MHVDQ)  data  files  are  rewound. 

The  DQ  data  file  is  read  until  the  singularity-defining 
quantities  for  the*  first  partition  are  in  core.  Then  the 
velocity  components  (VXij,  VYit,  VZij)  of  the  first  parti¬ 
tion  are  calculated.  Thai  the  singularity-defining  quantities  ? 

for  the  next  partition  are  read  in,  and  the  velocity  compo¬ 
nents  of  the  second  partition  are  calculated.  This  process 
continues  for  the  remaining  partitions.  When  a  partition 
containing  multihorseshoe  vortex  singularities  is  encoun¬ 
tered,  an  MKVDQ  data  file  is  read  in  addition  to  the  * 

regular  DQ  data  file. 

Before  computing  VX«,  VYij,  and  VZij,  subroutine 
UFLOWl  determines  toe  type  of  the  singularity.  If  the 
singularity  is  a  source  panel,  UFLOWl  calls  subroutine 
SOREQ,  which  calculates  the  velocity  components. 

If  the  singularity  is  a  quadrilateral  vortex,  UFLOWl  calls 
subroutine  VOREQ,  which  calculates  the  velocity  compo¬ 
nents  of  a  finite  line  vortex.  VOREQ  is  called  four  times, 
once  for  each  side  of  the  quadrilateral  (see  Figure  89). 


Figure  89.  Subroutine  UFLOWl— Quadrilateral  Vortex. 


UFLOWl  adds  the  four  parts  of  each  velocity  component 
to  obtain  the  velocity  components. 


VX„  =  VX„  +  VX„  +  VX„  +  VX 


ij 


ij 


ij< 


% 


+  VY. 


ij. 


(239) 
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If  the  singularity  is  a  multihorseshoe  vortex,  UFLOW1 
calls  subroutine  VOREQ  to  calculate  the  velocity  compo¬ 
nents  of  the  line  vortices  (see  Figure  90). 


Figure  90.  Subroutine  UFLOW1— Multihorseshoe  Vortex. 

The  velocity  components  due  to  the  left-side  line  vortices 
are  given  by 


^  * 


MS-1  M 

E  WApVx  -wams  E  Vx 

p  =  !  P  Xp  p  =  MS  p 


MS-1 

WAP  vyp  -  WAMS 


M 

E  v 

p  =  MS  yp 


(240) 


VZ 


LS 


MS-1 

y  wa  v 

p  z 

p  =  1  v  p 


M 

WA..0  y  V 
MS  z 

p  =  MS  p 


P 

where  WA  =  y  W# 

P  |^i  1 

W|  =  the  weighting  value  of  the  1^  center 
line  vortex 
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the  velocity  components  of  the  pth  left¬ 
side  line  vortex 


The  velocity  components  due  to  the  center  line  vortices 
are  given  by 


MS 

L 


1  =  1 


w. 


VY 

VIC 


W, 


VZC 


w. 


(241) 


where  V 
Xl 


_  the  velocity  components  of  the  Ith  center 
line  vortex 


The  velocity  components  due  to  the  right-side  line  vortices 
are  given  by 


MS-1 


M 


vx  =  £  WA  v  +  WA  £  V, 

M  p-1  p  xp  MSp  =  MS  Xp 

MS-1  M 

VY»-p?1WAp\tWA“»pi:Ms\  P42’ 


MS-1  M 

VZD9  -  V  WA  V  +  WA™  £  V, 
RS  p  Z  MS  —  ir  o  z 

p  =  1  P  p  =  MS  p 


1 
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The  velocity  components  due  to  the  multihorseshoe  vortex 
are  found  by  slimming  the  three  contributions 


VXij  =  vxM  +  VXC  +  VXM 

VY^  =  VY^  +  VYC  ♦  VYpg  (243) 

f  VZij  “  VZI 5  +  VZC  +  VZRS 

When  the  singularity-defining  quantities  for  a  partition 
are  read  in,  they  are  stored  in  labeled  COMMON  blocks. 

4  The  DQ  array  is  stored  in  the  COMMON  block  KOM2,  and 

the  MHVDQ  array  is  stored  in  the  COMMON  block  KOM4. 
Both  COMMON  blocks  are  described  in  subroutine  SFLOW. 
The  singularity  strength  matrix,  which  is  stored  one 
partition  at  a  time  in  the  labeled  COMMON  block  SL5,  is 
read  into  the  core  by  the  matrix  routine  READTP.  The 
(uik),  {VRcJ,  and  [w^]  matrices  are  also  stored  in  the 
COMMON  block  SL5. 

USAGE:  COMMON  (See  program  MAIN  for  blank  COMMON 

description.) 

COMMON  /SL3/  (See  subroutine  AEROSL.) 

COMMON  /SL5/  fSee  subroutine  AEROSL.) 

CALL  UFLOW1  (KSOL,  MSL) 


ICOM(2) 

=  maximum  matrix  partition  size 

NT1 

=  data  file  number  of  the  singularity 
strength  matrix  (Oj^) 

NT10 

=  data  file  number  of  the  singularity¬ 
defining  quantities 

NT18  ) 

NT  19 

NT20  } 

data  file  number  of  the  additional 
=  multihorseshoe  vortex- defining 
quantities 

NPC 

=  number  of  partitions  in  the  (oj^J 
matrix 

LS 

=  array  containing  the  number  of 
row  elements  in  each  partition 

299 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


XBO 

YBO 

ZBO 


arrays  of  streamline  point 
coordinates 


KSOL  =  solution  number  (the  value  of  k) 
MSL  =  number  of  streamline  points 


Output:  VXBO 

VYBO 
VZBO 


arrays  of  the  induced  velocity 
components  (u,v,w) 


T 


SOREQ 

VOREQ 

READTP 

None 

None 
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SUBJECT: 


FORTRAN  TV  Subroutine  VORDQ 


PURPOSE: 

METHOD: 


To  calculate  the  defining  quantities  and  boundary-point 
quantities  of  a  quadrilateral  vortex  singularity 

A  typical  input  quadrilateral  vortex  is  shown  in 
Figure  91. 


Figure  91.  Subroutine  VORDQ— Quadrilateral  Vortex. 

All  input  geometry  is  defined  in  the  reference  coordinate 
system.  Other  allowable  quadrilateral  shapes  are  shown 
in  Figure  92. 


Figure  92.  Subroutine  VORDQ— Triangular  Vortices. 


The  defining  quantities  of  a  quadrilateral  vortex  require 
no  computations.  A  list  of  the  singularity-defining  quan¬ 
tities  array  follows: 


DQ(1,  JC2)  * 

not 

DQ(2,  JC2)  - 

Xx) 

DQ(3,  JC2)  * 

DQ(4,  JC2)  « 

■l) 

DQ(5,  JC2)  * 

X2 

DQ(6,  JC2)  = 

y 2 

DQ(7,  JC2)  * 

Z2, 

DQ(8,  JC2)  * 

*3) 

DQ(9,  JC2)  = 

y3  1 

DQ(10,JC2)  = 

‘3j 

DQ(11,JC2)  * 

X4) 

DQ(12,  JC2)  = 

y4  ( 

DQ(13,  JC2)  ■ 

h) 

DQ(14,  JC2) 

to  = 

0.0 

DQ(39,  JC2) 

DQ(40,  JC2)  = 

2.0 

coordinates  of  corner  point  1 


}  coordinates  of  corner  point  2 


coordinates  of  corner  point  3 


coordinates  of  corner  point  4 


lateral  vortex-defining  quantities  array 

where  JC2  denotes  the  column  element  number  of  a 
partition. 


The  average  center  of  the  quadrilateral  is  used  as  the 
location  of  the  boundary  point. 

x  =  1/4  (Xj  +  Xg  +  x3  +  x4) 

y  =  1/4  (yx  +  y2  +  y3  +  y4)  (244) 

z  «.  1/4  (Zj  +  z2  +  Zg  +  z4) 
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To  obtain  the  unit  normal  vector,  two  diagonal  vectors  are 
needed:  the  vector  Ti  from  point  1  to  point  3  and  the 
vector  ?2  fro®  point  2  to  point  4.  In  general,  these 
vectors  are  not  orthogonal.  Their  components  are  given 
by 


Tlx  =  x3-xl 

T 

iy 

=  *3 

-»1 

(245) 

T2x'x4-’i2 

T„ 

2y 

=  y4 

-H  T2z  =  x4  ~  z2 

The  vector  ft  is  taken  as  the  cross  product  of  these ; 

i.  e. ,  N  *  Tg  : 

x  Tj. 

Its  components  are 

Nx  *  T2y 

Tlz‘ 

T 

l2z 

T 

iy 

Ny  “  T2z 

Tlx- 

T2x 

Tlz 

(246) 

Nz  *  T2x 

Tiy" 

T2y 

Tlx 

The  unit  normal  vector  components  are  computed  as 


where  N  =  Vn  2  +N  2  +  N  2 
V  x  y  z 

The  area  of  the  quadrilateral  is 


(247) 


(248) 


A  list  of  the  boundary-point  quantities  array  follows: 
BP(1,JC2)  =  x  j 

BP(2,JC2)  =  y  J  coordinates  of  the  boundary  point 
BP(3,JC2)  =  z  ) 

BP(4,  JC2)  =  nx 

nn/e  Tr,0v  _  „  unit  normal  vector  components  of 
BP(5,JC2)  -  ny  thfl  quadrilateral 

BP(6,  JC2)  =  nz 

BP(7,  JC2)  =  A  area  of  the  quadrilateral 
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USAGE: 


BP(8,  JC2)  > 

0.0 

BP(9,  JC2)  « 

0.0 

BP(10,  JC2)  * 

2.0 

BP(11,  JC2) 

to  ■« 

0.0 

BP(15,  JC2) 

not  defined 


a  code  identifying  this  as  s 
quadrilateral  vortex  boundary 
point  quantities  array 

specified  normal  velocities  at 
the  boundary  point.  (These  can 
be  overridden  by  the  user  of  the 
program;  see  subroutine  SNF. ) 


where  JC2  now  denotes  the  row  element  number  of  a 
partition. 


The  singularity -defining  quantities  array  DQ  and 
boundary-point  quantities  array  BP  are  passed  to  other 
subroutines  through  a  labeled  COMMON  statement. 


COMMON  /COM2/  DQ(40, 50),  BP(15, 50) 


DIMENSION  X(4),  Y(4),  Z(4) 
CALL  VQRDQ  (JC2,  X,  Y,  Z) 


Input:  JC2  * 


Output:  DQ  » 
BP  * 


row  (column)  element  number  of  a  partition 

coordinates  of  the  quadrilateral  vortex 
corner  points 

singularity-defining  quantities  array 
boundary-point  quantities  array 


"T 


9 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


None 

None 

The  quadrilateral  vortex  must  have  area. 
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SUBJECT: 

PURPOSE: 

METHOD: 

v 

* 


FORTRAN  IV  Subroutine  VOREQ 

To  calculate  the  velocity  components  Induced  at  a  point 
in  space  by  a  finite  line  vortex.  For  symmetric  flow, 
the  velocity  components  also  include  the  Influence  of 
the  vortex  image  across  the  x-z  plane. 

The  velocity  components,  which  are  functions  of 
geometrical  quantities,  depend  on  the  coordinates  of 
the  point  In  space  (x,y,  z)  and  on  the  coordinates  of  the 
end  points  of  the  line  vortex  (xi,yi,zj)  and  (xz.yg'Zg)- 
All  geometry  is  defined  in  the  reference  coordinate 
system  (see  Figure  93). 


z 


Figure  93.  Subroutine  VOREQ —Influence  of  a  Line  Vortex. 


The  velocity  components  induced  at  a  point  due  to  a 
single  line  vortex  are  given  by 


(249) 


where  A  =  (y2  -  yj  (z  -  Zj)  -  (zg  -  Zj)  (y  -  yj 

B  =  (z2  -  Zj)  (x  -  xx)  -  (Xg  -  xx)  (z  -  Zj) 

c  =  (Xg  -  xj)  (y  -  yj)  -  (y2  -  yx)  (x  -  Xx) 
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fi  s  -1— 
H  8* 


(2L  coadj)  -  (2Lco*02) 


2  2  2 
A  +  B  +  C 


2L  cos  fij  = 


2  2  2 

R1  -  V  +  L 


2L  cos  6. 


2  2  2 
-  H1  '  B2  -  L 


Rx  =  >/<x  -  xx)2  +  (y  -  yx)2  +  (z  -  zj2 

r2  =  V  (*  -  *2>2  +  (y  -  y2)z  +  (z  -  z2>2 

L  «  V(X2  -  Xj)2  +  (y2  -  y/  +  (z2  -  z/ 


If 


A  +  B  +  C  S  lx  10' 


-20 


then 


(250) 


(251) 


For  symmetric  flow,  the  velocity  components  due  to 
the  image  line  vortex  of  the  left  half  or  reflected  side 
of  the  potential- flow  model  are  computed  in  addition 
to  the  velocity  components  due  to  the  line  vortex  of 
the  right  half  or  basic  side  of  the  model.  This  is 
accomplished  by  reflecting  the  point  in  space  across 
the  x-z  plane,  as  shown  in  Figure  94. 


t 


4t 
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i : j 


REFLECTED  POINT 


/~ 


POINT  IN  SPACE 


BASIC  SIDE  VORTEX 


PLANE  OF  SYMMETRY 


Figure  94.  Subroutine  VOREQ—  Line  Vortex  in  a  Symmetric  Flow  Field. 

Thu^the  signs  of  y  and  B  are  changed',  and  the  veloc¬ 
ity  components  due  to  the  reflected  vortex  are  com¬ 
puted  using  the  above  equations. 

For  symmetric  flow,  the  velocity  components  are 

Vx  -  Vx  (basic)  +  Vx  (reflected) 

Vy  "  Vy  (basic)  +  Vy  (reflected) 

v  =  V  +  V 

z  z  (basic)  z  (reflected) 

USAGE:  CALL  VOREQ  (NSYM,  XI,  Yl,  Zl,  X2,  Y2,  Z2,  X, 

Y,  Z,  VX,  VY,  VZ) 

Input:  NSYM  =  1,  unsymmetric  flow 

2 ,  symmetric  flow 

coordinates  of  vortex  end  point  1 

<*l.yl.»l) 

coordinates  of  vortex  end  point  2 

(x2*y2,z2^ 

_  coordinates  of  the  point  in  space 
(x,y,z) 
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Output:  VX 
VY 

vz 


velocity  components  (VX,V V^) 


SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  None 


SUBJECT: 


ASCENT  Subroutine  WRTETP 


PURPOSE:  To  write  ft  matrix  on  a  data  file 

METHOD:  The  writing  is  done  with  a  format  consistent  with  the 

Boeing-developed  matrix  routines. 

USAGE:  DIMENSION  A(JR,  N),  B(12) 

CALL  WRTETP  (A(l,  1),  JR,  NAME,  M,  N,  B,  NF, 
NMT,  NT  APE,  IRROR) 


Input:  A  =•  the  matrix  to  be  written  on 

the  data  file.  If  this  is  not  A(l,  1), 
the  designated  matrix  will  go  on  the 
data  file. 

JR  =  maximum  matrix  size.  This  also 
must  be  the  row  DIMENSION  state¬ 
ment  entry  for  A. 

NAME  3  integer  name  of  the  matrix 

M  3  number  of  rows  in  the  matrix 

N  3  number  of  columns  in  the  matrix 

B  =  scratch  array  for  use  by  WRTETP 

NF  =  number  of  end-of-file  marks  to  be 

passed  before  writing  starts.  If  0, 
no  file  spacing  takes  place 

NMT  =  number  of  matrices  to  be  passed 
before  writing  occurs.  If  0,  no 
matrix  spacing  takes  place 

NTAPE  =  number  of  the  data  file  containing 
the  matrix 

Output:  IRROR  =  error  code 

SUBPROGRAMS 

CALLED:  None 

ERROR  RETURNS:  IRROR  =  0,  if  successful  write 

=  1,  if  file  spacing  error 
=  2,  if  matrix  spacing  is  negative 
=  3,  if  matrix  spacing  error  occurs 


RESTRICTIONS: 


None 


C.  Bojgukry-lgygr  program  ttbrocttoe  description*. — The  subroutine*  lifted 
alphabetically  be  towaredl*cu**ed  E  BEG  ieoHonT 


Subroutine  Index 


Subroutine 

p*c 

Subroutine 

Ess 

DED 

311 

INTERP 

316 

DEDE3 

311 

MAIN 

317 

DEI 

311 

MEAN 

319 

DES 

311 

i 

310 


SUBJECT: 

PURPOSE: 


METHOD: 


FORTRAN  IV  Subroutines  DED,  DEDE,  DEI,  DES 

To  solve  a  set  of  N  first-order  ordinary  differential 
equations  by  the  Adams -Moulton  predictor-corrector 
method 

The  differential  equations  must  be  in  the  form 

y'i  *  fi  yr  y 2 . yn> 

y'2  *  ^2  yl*  y29  ""  yn^ 


y'i  =  fi yi*  y2*  •  •  •  •  yv  V 
y’n  *  fn (t*  yl»  y2 . V 

t  is  the  independent  variable  and  ylt  y£,  •  •  •  *  yn  ar© 
the  depend"*  variables  that  must  be  determined  tor  a 
given  range  of  t. 

A  description  of  this  method  follows: 

1.  The  initial  conditions  for  t,  ylt  yo . .  must  be 

given  as  well  as  an  initial  independent  variable  incre¬ 
ment  h.  Backward  integration  may  be  performed  by 
using  a  negative  h. 

2.  Each  differential  equation  requires  four  points  before 
the  predictor- corrector  equations  may  be  applied. 

The  first  three  integrations  are  performed  by  the 
Runge-Kutta  method,  and  the  initial  conditions  give  the 
required  starting  points  for  the  predictor-corrector 
formulas.  Each  time  the  step  size  is  altered,  it  is 
necessary  to  obtain  new  starting  points  using  Runge- 
Kutta  integration. 

3.  Once  four  points  are  determined,  the  integration  is 
performed  from  point  n  to  n  +  1  along  the  curve 
ujing  Equation  (254)  to  predict  and  Equation  (255)  to 
correct. 

yi!tttl  ’  yir n *  M  <9fUi+r  19fi.n"5,l, n-1  * f'.»-2p55) 

where  (p)  and  (c)  represent  predicted  and 
corrected  values,  respectively.  If  the 


USAGE: 


corrected  value  is  satisfied  so  that  it  is  not  required 
to  change  h,  the  derivatives  y'j  n+1  are  calculated 
from  the  differential  equations.' 

More  than  one  system  of  differential  equations  may  be 

solved  in  a  given  program.  Let  N  be  the  maximum 

number  of  differential  equations  required  to  be  solved 

in  a  program.  The  following  must  be  considered  in 

using  the  routines .  ’ 

1.  An  array  of  12N  +  9  storage  cells  must  be  reserved 

in  a  dimension  statement.  This  block  will  be  referred 

toss  T.  I 

2.  Dealing  with  a  particular  system  of  differential  equa¬ 
tions,  the  number  of  equations  must  be  stored  in  two 
locations,  referred  to  as  NUM  and  NUM1. 

3.  An  equivalence  statement  giving  T(l)  and  NUM1  the 
same  working  location  must  be  written. 

4.  Parameters  input  to  the  differential  equation  routine 
are  listed  below: 

fractional  part  to  decrease  the  interval  h  if  it 
needs  to  be  reduced.  Normally,  fi  -  0.5; 
however,  it  must  be  in  the  range  0  <  £  <  1. 

number  used  in  determining  the  relative  error 
between  the  predicted  and  corrected  values. 

Normally,  A  =  1. 

minimum  increment  of  the  independent 
variable.  This  value  must  not  be  negative. 

maximum  allowable  increment  of  the  indepen¬ 
dent  variable.  This  value  must  not  be  negative. 

ratio  between  upper  bound  and  lower  bound  *. 

relative  error.  Normally,  1000, 

allowable  relative  error  between  the  predicted 
and  corrected  values.  A  representative  value 
is  10-6. 

5.  The  following  quantities  must  be  initialized  with  the 
indicated  quantities  prior  to  entering  the  differential 
equation-solving  routines. 


0  * 

A  = 

^min  ~ 

^max- 
M  = 

E 
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r 


i 


NUM,  NUM1 

*  number  of  differential  equations 
that  must  be  solved 

T(12*NUM) 

«  Initial  value  of  1st  dependent 
variable 

T(12*NUM-1) 

=  initial  value  of  2*“*  variable 

T(12*NUM-NUM+1) 

-  initial  value  of  last  dependent 
variable 

T(12*NUM+1) 

■  Initial  increment  of  independent 
variable 

T(12*NUM+2) 

=  Initial  value  of  independent  variable 

T(12*NUM+4) 

=  0 

T(12*NUM+5) 

*Snin 

T(12*NUM+6) 

-  Nnax 

T(12*NUM+7) 

=  A 

T(12*NUM+8) 

=  M 

T(12*NUM+9) 

=  E 

6.  A  block  in  the  program  or  a  subprogram  must  be  made 
to  calculate  the  derivatives .  These  must  be  calculated 
in  terms  of  T-block  locations ,  since  the  differential 
equation  subprogram  links  to  this  block  to  compute  the 
derivatives  when  required.  The  coding  of  the  deriva¬ 
tive  calculations  may  be  simplified  by  equivalence 
statements,  if  the  number  of  differential  equations  is 
invariant. 

T(11*NUM) 

=  first  derivative  y'j 

T(11*NUM-1) 

=  second  derivative  y'2 

T(11*NUM-NUM+1) 

=  last  derivative  y' 

J  n 
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SUBPROGRAMS 

CALLED: 


7.  There  ere  three  linkage*  to  the  differential  equation- 
solving  routine,  DEDE3,  by  CALL  statements.  They 
are  given  the  names  DES,  DEI,  and  DED. 

a.  DES  used  onee  at  the  beginning  to  prepare  the 

routine  for  integration  of  a  given  set  of 
differential  equations.  The  CALL  state¬ 
ment  is  CALL  DES(NUM1,  IND,  NTEST). 

b.  DEI  used  to  Integrate  all  yj  from  t^tui  to 

t final.  The  CALL  statement  is  CALL 
DEI(NUM,  IND,  NTEST). 

c.  DED  the  CALL  statement  is  CALL  DED(NARG). 


8.  The  following  fixed-point  arguments  are  required  for 

the  CALL  statements: 

NUM  ) 

NUM1 1  *  na2nber  equations  in  the  system 

IND  «  0,  variable  interval  using  Adams-Moulton 
predictor-corrector  method. 

NTEST  »  used  in  the  differential  equation  program 
to  obtain  the  correct  linkage  to  the  differ¬ 
ential  equation  routine.  Its  value  is  set 
in  the  differential  equation  routine.  It  must 
be  the  third  argument  of  DES  and  the  argu¬ 
ment  of  the  IF  statement,  as  indicated  in  the 
example  below. 

NARG  *  calculated  in  the  differential  equation  sub¬ 
program  and  tested  in  the  calling  sequence 
to  determine  whether  an  Integration  step  is 
completed. 

Example  Calling  Sequenoe 

CALL  DES(NUM1,  IND,  NTEST) 

7  IF  (NTEST)  15,  15,  11 
11  CALL  DEI(NUM,  IND,  NTEST) 

15  (Derivative  Calculation) 

CALL  DED  (NARG) 

IF(NARG.  EQ.  0)  GOTO  7 


None 
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f 


i 


t 


i 


if 


4 


t 


1 

i  i 


ERROR  RETURNS:  If  an  error  is  detected,  a  comment  is  printed  and  exit  is 
made  to  the  monitor.  Checks  are  made  for  the -following 
errors: 


Error 

1.  Number  of  differential 
Equations  N  =  0 

2.  N  >  4096 

3.  Step  sire  H  =  0 

4.  Integration  mode  indicator 
7*  0,  1,  or  2 


5.  Predictor-corrector 
tolerance  E  =  0 


Error  Comment 

Differential  equation  sub¬ 
routine  DES  input  error 
N  =  0 

Differential  equation  sub- 
•  routine  DES  input  error 
’  N  =  4096 

Differential  equation  sub¬ 
routine  DES  input  error 
H  =  0 

Differential  equation  sub¬ 
routine  DES  input  error 
IND 

Differential  equation  sub¬ 
routine  DES  input  error 
E  =  0 


RESTRICTIONS:  None 


4 
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SUBJECT:  FORTRAN  IV  Subroutine  INTERP 

PURPOSE:  To  interpolate  for  y  given  a  value  of  x,  from  an  array  of 

points  (Xj.yj),  (x2,y2), , . .  (x^Yj) 

METHOD:  Assume  Xq.^  «  x  «  xq.  A  second-order  Lagrangian  inter¬ 

polation  through  the  points  Xq,  xn+i  is  made  to 
obtain  curve  yi(x).  Another  second -order  Lagrangian 
interpolation  through  the  points  xn_2,  x^,  Xq  is  made  5 

to  obtain  y2(x).  Then  y  is  calculated  as  the  weighted 
mean  of  the  two  curves  yj(x)  and  y2(x)  (see  Figure  95). 


Figure  95.  Subroutine  INTERP—  Lagrangian  Interpolation  Scheme. 
USAGE:  DIMENSION  Y(2000,  7),  XX(7) 

CALL  INTERP  (X,  Y,  H,  XX) 

Input:  X  =  value  of  the  independent  variable,  x 

Y  =  array  of  y  values  defining  the  curves  as 
functions  of  x 

IT  *  number  of  x  stations 

Output:  XX  *  array  of  interpolated  y  values  for  the 
given  value  of  x 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  Y(TT,  1)  contains  the  values  of  the  x  coordinates  and 

must  be  monotonically  increasing. 
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SUBJECT: 

PURPOSE: 

METHOD: 

I 


FORTRAN  IV  Program  MAIN 

To  compute  turbulent  boundary-layer  growth  by  the 
simultaneous  solution  of  two  first-order  ordinary 
differential  equations  describing  the  boundary  layer 

The  following  momentum  and  moment-of-momentum 
equations  are  solved  simultaneously,  along  with  the  sldn 
friction  equation,  to  yield  the  momentum  thickness  0,  the 
shape  factor  H,  and  the  skin  friction  Cj. 


Momentum 


Moment  of  Momentum 


dH 

d5* 


JL  dV  [ 
~  ~  V  ds  L 

H2  -  1 


HJiLtii 


imLiii  + 


H  -  (H 


<256) 


(257) 


Skin  Friction 


0. 123  (10 


-0.678R 


)R. 


-0.268 


(V0) 


-0.268 


(258) 


where  K.  ■  -  Jr  •  ~ 
1  V  dy 


Log10  Hq  =  0. 599  -  0. 198  *  Log, n  (Rw  •  V0)  + 


H, 


10 


I  =  - 

®  H0+1 


0.0189  •  [l^ogjQ  (R«o  '  V0)]2 

a/2 


1  +  . 0378 


(52,9  L°810  Hq-  4.18) 
<Ho2 "  « 
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USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


Input: 

Output: 


Refer  to  Section  3.3.2. 

Y(1, 1)  =  s,  an  array  of  arc  lengths  along  the 
streamline 

Y(1, 2)  =  Cf,  skin  friction  coefficient  at  8 

Y(1, 3)  -  0,  momentum  thickness  at  s 

Y(1, 4)  -  H,  shape  factor  at  s 

Y(1, 5)  =  V,  velocity  at  s 
dV 

Y(1, 6)  =  -jg- ,  velocity  gradient  at  s 
dvt 

Y(1, 7)  =  -r-51,  gradient  of  the  normal  component 
^t  of  velocity  normal  to  the  stream¬ 
line  at  s 


MEAN 

DES 

DEI 

DED 

INTERP 


None 

The  values  of  s  must  be  monotonically  decreasing. 


V 

I 


318 


i 


SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


FORTRAN  IV  Subroutine  MEAN 

To  smooth  n  set  of  data  points  defining  a  single-valued 
Amotion  of  one  variable 

A  sliding  operation  that  deals  with  four  points  at  a  time 
Qxi>  yt)»  1  =  1,  2,  3,  4)  is  employed.  Points  whose 
ordinates  may  be  changed  are  the  interior  two  points  at 
each  setting  of  the  operation.  The  abscissas  of  the  input 
points  are  not  changed.  A  straight  line  is  drawn  from 
(xj,  yx)  to  (X3,  y3)  and  another  straight  line  from 
(*2»  y2>  to  (*4»  y4).  If  the  abscissa  of  the  intersection 
of  these  two  lines  lies  in  the  interval  to  x3»  then  the 
points  are  left  as  they  are,  and  the  operation  slides  over 
one  point  and  begins  anew.  If  the  lines  are  parallel  or 
If  the  abscissa  of  the  intersection  is  outside  the  interval 
X£  to  X3,  then  new  ordinates  y£  and  y$  are  calculated. 

An  ordinate  on  the  first  line  is  evaluated  at  the  abscissa  X2; 
similarly,  an  ordinate  on  the  second  line  is  evaluated  at  the 
abscissa  X3.  The  new  values  y2  and  y3  are  the  mean 
values  of  the  original  ordinates  and  new  ordinates  so 
calculated. 

This  operation  slides  along  the  set  of  points  until  all 
interior  points  have  been  subjected  to  smoothing.  Five 
such  passes  are  made  over  the  curve  at  each  call  of 
MEAN. 

CALL  MEAN  (X,  Y,  N) 

Input:  X  =  array  of  abscissas;  a  strictly  monotone 

sequence 

Y  =  array  of  ordinates  to  be  smoothed 
N  =  number  of  points 

Output:  Y  =  smoothed  ordinates  (the  first  and  last 
points  are  not  subjected  to  smoothing) 


The  abscissas  must  be  strictly  monotonic;  thus  vertical 
slopes  are  excluded. 
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